le T hebdomadaire des proqrammes informatiques 



MIJID 
MI-RAISIN 



Pour la deuxieme annee conse- 
cutive le VIDCOM. salon profes- 
sionnel de ia video et de la 
communication, a accueilli a 
Cannes le MIJID avec ses ordina- 
teurs el ses logiciels du 13 au 17 
octobre. Si les journalistes 
etaienl nombreux - probablement 
attires par Cannes, la mer et les 
nombreux cocktails dans I'en- 
ceinte du Palais des festivals - 
les visiteurs ne se bousculaient 
pas au portiMon et les nouveautes 
ne parsemaient pas les allees. 
Nous avons nous-memes forte- 
ment apprecies les petits fours, 
les innombrables bouteilles. le 
soleil et la mer-sans-arret-rou- 
lant-ses-galets ainsi que la boite 
a musique du EXL 100 d'Exelvi- 
sion (Voir article dans ce nu- 
mero), le noeud papillon du mi- 
nistre de service, les nouveaux 
logiciels du Canon X07 sorlis en 
un temps record pour linlerface, 
Video, remission -Pic et Poke et 1 
Colegram" de TFt tournee en di- 
rect du salon { Tous les samedis. 
a 1 1 heures 30 sur TF1 ) et le lo- 
giciel "Europe* de Micro applica- 
tion pour Commodore 64 qui va 
mettre un terme a tous les logi- 
ciels geographiques fleurissant 
sur le marche : la carte de l'Eu- 
rope defile dans tous les sens sur 
I'ecran et vous devez, avec voire 
helicoptere. vous posez sur la 
ville demandee par I'ordinateur. 
Les capitales. les grandes villes 
et meme les villes de moyenne 
importance sont presentes, el 
pour toute I'Europe ! 

Suite page 9 



ROCK N 
JOYST 



Confortablement installe dans 
votre fauteuil prefere. un verre 
dans une main, un joystick dans 
I'autre. vous hesitez : " Vais-je ra- 
jouter des claquemenls de mains 
dans mon trente-septieme mor- 
ceau ? Tiens. la je supprimerais 
bien la deuxieme grosse caisse. 
Allez un petit essai. ecoutons ce 
que ca donne ". Et vous envoyez 
le morceau que vous venez de 
composer, ca passe super sur les 
baffles de voire chaine. Le bout 
des pieds agites par le rythme, 
vous contatez que, comme vous 
I'aviez toujours pense, vous etiez 
effectivement super-doue pour la 
musique, qu'il n'y a pas que les 
noirs americains qui ont le rythme 
dans la peau et qu'il etail temps 
qu'un constructeur permette aux 
genies comme vous de liberer 
leur talent sans s'enquiquiner a 
apprendre le solfege. Savoir. en 
plus, que vous etes guides par 
des menus sur I'ecran de votre 
ordinateur et que voire apprentis- 
sage a dure le lemps de la lec- 
ture du mode d'emploi vous 
plonge dans un delicieux verlige 
et vous murmurez tout bas, pour 
ne pas troubler ce passage ge- 
nial:"Merci, monsieur Exelvision ! 
\ Car ce sont bien eux. encore 
eux. les francais d'Exelvision qui 
nous sorte ce logiciel de musi- 
que. une cartouche d'eproms qui 
est une boite a rythme stereo su- 
perbe. 

Etudie par les specialistes d'Hoh- 
ner - des maftres en la matiere ■ 
ce logiciel met a votre disposition 
17 instruments de musique diffe- 



rents que vous pouvez melanger 
a votre guise, cela va des mara- 
cas a la grosse caisse. en pas- 
sant par les symbales et les cla- 
quements de mains. Tous les 
rythmes sont presenls : Samba, 
cha-cha, mambo, rock et bien 
d'autres comme le break-dance 
ou les marches militaires. 54 gril- 
les de programmation sont en- 
chamables et vous pouvez, a tout 
moment, les sauvegarder ou les 
charger a parttr de votre lecteur 
de cassettes ou de la memoire 
non volatile du EXL 100. Quand 
votre oeuvre est parfaite, il ne 
vous resle plus qu'a I'enregislrer 
sur une bande magneto quelcon- 
que. Que dire de plus, si ce n'est 
qu'une boite a rythme de ce type 
coute acluellemenl pres de la 
peau des f esses et que !e module 
sera vendu d'ici un ou deux mois 
pour environ 900 francs, abor- 
dable, non ? 



ATARI, C* EST 
PAS FINI ! 

Bon. d'accord. nous avons des 
problemes avec Atari, nous n'al- 
lons pas revenir la dessus et la 
Juslice suit mainlenant son 
cours. Ce n'est pas une raison 
pour larguer les possesseurs 
d'ordinateurs de cette marque et 
pour ne pas publier a nouveau de 
bons programmes pour les 600 et 
800 XL. Nous en avons recu 
quelques uns (pas assez pour les 
faire re-rentrer tout de suite) et 
aux prix oil sont a present ven- 
dues les consoles il est certain 
que nous allons voir apparailre 
de nouveaux lecteurs qui vont en 
ecrire d'autres. Nous passerons 



done a nouveau des listings dans 
trois semaines. a condition que 
vous nous envoyez vos oeuvres, 
bande de faineants ! 



EDITO 



La tendance se confirme, nos 
cheres pelites machines von! 
probablement devenir tres bavar- 
des d'ici peu. Caslel of Wolfeis- 
tein a du etre un des premiers lo- 
giciels parlant sur Apple et ses 
"achtung" nasillards ont du don- 
ner des idees aux ingenieurs 
d'Exelvision pour la fabuleuse 
synthese de la parole du EXL 
100. Les commentaires du 
Tennis ou de "Capilaine Menkar" 
qui doit sorlir prochainement sont 
epouslouflants. il faul dire que 
e'est un gros ordinateur de Texas 
Instrument aux Etats-Unis qui 
transforme les messages, e'est 
plus facile que de calculer la re- 
partition des phonemes a la main 
! Les auteurs de logiciels francais 
s'y mettent egalement. avec des 
moyens differents, et les resultals 
sont tres prometleurs : "Stanley" 
de Loriciels pour T07 est assez 
bien fait ainsi que "Talisman" a 
paraitre chez Infogrames pour 
Atmos qui se marre comme une 
baleine quand vous avez perdu, 
tres vexanl ! 



Gerard CECCALDI 
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Laurent CHAPIN 

SPECTRUM 

Chnstophe LANOIR 

TRS80 

Rene JALLERAT 

TI99/4A(b.s ) Vengeance du prince 

Serge DUTILLEUL Page 3 

TI99/4A(b.e.) Voleur de diamants 
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LES CONCOURS PERMANENTS : 

10 000 francs de.prix au meilleur programme CHAOUE MOIS 
1 voyage en Californie pour le meilleur logiciel CHAQUE TRI- 
MESTRE (Reglement en page inteneure) 



DES PROGRAMMES POUR VOTRE ORDINATEUR : APPLE II ET HE 
CANON X-07 . CASIO FX 702-P . COMMODORE 64 ET VIC 20 . 
HECTOR HR . HEWLETT PACKARD HP 41 . ORIC 1 ET ATMOS . 
SHARP MZ, PC 1251, PC 1500 . SINCLAIR ZX 81 ET SPECTRUM. 
TANDY TRS 80 . TEXAS TI-99/4A . THOMSON T07 ET M05. 



HIPPORE8US trouvez I'expression qui se cache dans la B.D. de I'hippocampe. Decompose en trois syllabes dans les trois premieres cases, le "toul" a evidemment un rapport avec I'inlormatique 
(solution en page inteneure). 




I |\| OO 19 Octobre 19B4 J 



Allemagne 3,50 DM - Belgique 55 Frs - Canada 2,50 $ • Luxembourg 57 Frs - Suisse 3 Frs - 



LE MUR 



Combien de fruits arriverez-vous a cueillir dans ce ver- 
ger avant que son proprietaire ne vous repere? 
Mais attention, a chaque deplacement, un mur occupe 
la derniere position que vous aviez. Vous ne devez 
surtout pas heurter le mur, une alarme signalerait votre 
presence au proprietaire. 



SPECTRUM 



Chaque couleur de fruit a une valeur drfterente. 

Un bonus vous est offert pour chaque fruit blanc que 

vous degustez. 

Mode d'emploi inclus dans le programme. 

Christophe LANOIR 




40 REN d«lim 
100. GO ro 5*60 
110 REM I r.i i x ; 



itiOfi 



5UB ! 



120 GO 

130 CL. 

14.0 REN p.'c>er.l»t 
150 00 5UB 650 

160 Ink o 
l 70 PAPER 7 

lee border a 
190 CU3 

200 REM deS3lf, j 
210 GO iUO 610 
220 REM 
230 REM * 

240 REM * 

250 REM * 

260 REM 

270 PO* E 3367 3 -255 

SAO P>>£ 2 3-372 .25? 
i90 PRINT mT Y .X, -I 
300 LET P*=INKEY* 
310 IF R«="S" OR R*="6" OR RS 
— ' OR R«='3" TMEN GO SUB 440 



ttt*. ****** 



«!> L*C«I 



hOkii 



RE 



•25S.PEEK 23673+PE 



320 LET 
EN 23672) __ 

330 LET l««$TRI INT t 

3*0 IF 1*10 TMEN LET t»="0"*t« 

350 PRINT AT 21,6. INVERSE 1,T$ 

360 IF T < 1 THEN GO TO 14.23: REM 
'.-npj depasS* 

370 IF RND>.35 ThEn PR INT AT RM 
D*18*1,RND*29*1. INK RNO+7. FLA3 
M 1. "D" 

330 GO TO 300 

390 REM 

400 REM ******* » T ********** , f , , 

410 REM *dep i.ac«fc€nt bor.ho»*e * 

4.20 REM «...4f**ti+**HHHI»H 

430 REM 

440 PRINT AT r,X; PAPER 2; "A" 

450 LET *=>,- iR»="S"l »fRt="8"l 

460 LET Y=Y- <R( = "7") *(R»="6"1 

470 IF RTTR .Y.Xi=16 TMEN PRINT 

RT 20,1, INK 2, PAPER 6;' UOUS 

AUEZ MEURTE UN MUR ' ' '* : GO TO 

1430 

480 IF RTTR <Y,X><127 THEN GO T 
540 REM P9S <je If'Jil 

490 FOR F=0 TO 5 

500 BEEP .02,RND*3O 

510 NEXT F 

520 LET 5C=SC*10*ATTR lY.XJ-130 

530 IF RTTR (y,XJ=191 TMEN LET 
5C=3C+19 REM bonus 

540 IF U=2*INT <U/2> THEN PRINT 

RT f,X,"C"- GO TO 560 

550 PRINT RT Y,X, "B" 

560 LET U=U*1 

570 eEEP .02,30 

530 BEEP .02,40 

590 PRINT RT 21,23, INUEPSE 1,5 

'600 RETURN 
610 REM 
620 REM *********«*******>*t.** 

630 REM » d«;5in dU jCU * 

640 REM tlHHHHIfHtMHHH 
650 REM 

650 PHPEP 2 

670 PRINT AT 0,0, ■•RAAAAAAAAAAAA 

AAhhAAhhAHRRhAAARAA" . 

680 FOR F=l TO 19 

690 PRINT RT F,0,'A",RT F,31;"A 

700 BEEP .0* . 10 

710 BORDER 3 

720 PRUSE 1 

730 BORDER 2 

740 NEXT F 

750 PRINT RT 20.0, 'AAAAhAAAAAhA 

HHHMWHWHHHfiHHMiiHH- 

760 PRINT RT 21 ,0, 'AhAAAAAhhmhA 
hARRAAARAAAAAhAAhAAR" 

770 PRINT RT 21.1, INK 6, "TEMPS 
:"';AT 21 .22, "SCOPE- " . INK 7, PRP 
EP 0. "0" 

730 PAPER 7 

790 RETURN 

600 PEM 

310 PEM **;.,******************* 

620 rem - presentation * 

330 PEM ***»************>•«**** 

340 REM 

650 PRINT AT 5,7, "RTTRAPEZ LE5 
FRUITS" 

660 PRINT AT 9,2, 'PENDANT OUE L 
£ PROPRIETAIRE"' 

670 PRINT AT 11,6, "N EST PAS LR 
MAIS" 

630 PRINT AT 13,9, FLASH 1, " 

",RT 14,9." ATTENTION 
. . . " , AT 15 , 9 , " 

690 BEEP .05 .30 

900 BEEP .05.20 

910 PRINT B0. INK 7. BRIGHT 1," 
P-t-grrFE.! UNE TOUCHC 



420 PAU5E 4E4 

930 PRINT RT 0,0. 

940 INK 

950 PRPER 2 

960 BORDER 2 

970 CLS 

930 FOP F=0 TO 20 

990 BORDER 3 

10O0 BORDER 2 

1010 PRINT ■hhhhh«hhhAh.-<AhhhhAhh 
AAAAAAAAAAAm 

1020 NEXT F 

1030 PRINT OUER l.AT 5,9,' Wt ■ 
. ■■ ■■- RT fl .0; "k i| Til 

I ".at ■ ■ mm 3 I ■ ,"T -. 
*_* m | IT f "t "j. ■ ■ 



1040 PRINT OUER 



BEEP .05.30 
1060 BEEP .05,20 
1070 PRINT HO, BRIGHT 1 . " 

PPESSE2 UNE TOUCHC 

1080 PAUSE 4E4 

1090 GL6 

110O P&INT AT 4,10. FRUITS 

1110 FOR < =0 TO / 

1120 PRINT mT 7*2. t. 7. PAPER 7, 

FLASH l-'D". FLASH 0. PAP 



IN 



7, " 



= ", 10.4* 



PRESSEZ'UNE TOUCHE 

1130 PAUSE 4E4 

1190 CLS 

1200 PRINT AT 3,11, 

1210 PRINT RT 4,11 

UUEHENTS " 

1220 PRINT RT 5,11 



1250 NEXT F 

1260 PRINT AT 9,16. 

11 . 14, "3". AT 11, 18 

1270 PRINT AT 17,9; 



PAPER 6, " 
PAPER 6, " 

PAPER 6, ' 

PAPER ?;" 

INK 7; "B"; 
■B";at 13, 

FLASH X, " 



1230 PRINT AT 18.9. FLASH 1, " 

UR COHHENCER " 

1290 PRINT AT 19,9, FLASH 1." 

1300 BEEP .05,30 
1310 BEEP .05,20 
1320 PRINT B0, BRIGHT 1, " 

PRESSEZ UNE TOUCHE 

1330 PAUSE 4E4 

1340 BEEP .1,20 

1350 SEEP .1,30 

1360 RETURN 

1370 REM 

1330 REM ** 

1390 REM * 

1400 REM ** 

1410 REM 

1420 PRINT PAPER 6, INK 2; AT 2 

l;" UOICI LE PROPRIETAIRE 



1450 LET B$="" 

1460 POKE 23692,-1 

1470 PRINT AT 21,0; PAPER 3; b* 

1480 IF 3C<cR(5) TMEN PAUSE 20 : 

GO TO 1630 

1490 PRINT AT 2,0; 

1500 FOR F=0 TO B 

1510 PRINT INK F;"\\\\\\\\\\WN 

1520 NEXT F 

1530 PRINT AT 2,0; 

1540 FOR F = TO 6 

1550 PRINT INK F, OUER 1; "///// 

1560 NEXT F 

1570 PRINT AT 13,0, INK 6, PAPEl 
2, FLASH 1;" 



UOUS ETES DANS LES 
5 MEILLEUR5 

1530 FOR F=0 TO 15 

1590 BEEP .05,RND*40-10 

1600 NEXT F 

JH 10 Let! 
", LINE CS 
PAPER 2: ■ 



1610 INPUT "WOTRB N 

res »axi 

1515 PRINT AT 21,0. 



1620 FOP F=l TO LEN C* 

1630 IF CODE C«!Fl>96 AND CODE C 

t'FI.123 THEN LET C$tFl=CHR« tCO 

DE C»(Fi - 197-6S) l 

1640 NEXT F 

1650 FOR X=5 TO 1 STEP -1 

1650 IF 5C>A(X1 THEN LET A(X*lt= 

fl(XI- LET AS 'X*ll =A* (X) : LET A<X 

I =SC- LET A*rx> =Ct 

1670 NEXT X 

1630 CLS 

1690 BORDER 2 

1700 FOR F=0 TO 21 

1710 BORDER 6 

1720 PAUSE 1 

17 3© BORDER 2 

1740 PRINT PAPER 2 . " AMdARARAAftHR 

H A AAACiA Ah AAA AR A AAA AA" 

1750 NEXT F 

1760 FOR F=0 TO 7 

1770 IF F=2 TMEN GO TO 1790 

1760 PRINT AT 0,7; INK F, PAPER 

2,'TRBLEAU DE3 SCORES" 

1790 PRUSE IS 

1800 NEXT F 

1610 PRINT PAPER 3, BRIGHT 1, AT 

5 . 8, "P^"T- ; AT 6.8, "|NOM I" , AT 7, 

6 , 1 I 

1320 p rint pa per 3. bright i;at 

5,20: "r - "^"^", AT 6,20, "I SCORE |" 

.AT 7 ,20, ' ■ ,i .1 

L830 PRPER 2 



2310 
2320 
2330 
2340 
2350 
2360 
2 370 
2330 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2430 
2490 
2500 
2510 
2520 
2530 
2540 
2550 

2 5^-e 

2570 
2530 

.-:59 3 
2600 
2610 
5620 
2630 
2S40 
2650 

.--■e-5<-? 

2570 
2660 
2590 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
27S0 
2790 
2600 
2310 
2820 
2330 
2340 
2350 
2860 
2370 
2880 
2390 
2900 
2910 
2920 
2930 
2940 

2960 
2970 
2930 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
■j.030 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3^50 

3 260 
3 2 70 
3230 
3290 



REM 

DATA BIN 
DATA BIN 
DATA BIN 
DATA BIN 
DATA BIN 
DATA BIN 
DATA BIN 
OATA BIN 
REM 

DATA BIN 
DATA BIN 
DRTR BIN 
DATA BIN 
DATA BIN 
DATA BIN 
DATA BIN 
DATA BIN 
REM 

DRTR BIN 
DATA BIN 
DATA BIN 
DATR BIN 
DATA BIN 
DATA BIN 
DATR BIN 
DATA BIN 
REM 

DATA BIN 
DATA SIN 
DATR BIN 
DATR BIN 
DATA BIN 
DATA BIN 
DATA BIN 
DATA BIN 
REM 

DATA BIN 
DATA EIN 
DATA BIN 
DATA BIN 
DATA BIN 
DRTR BIN 
DATA BIN 
DATA BIN 
REM 

DATA BIN 
DATR BIN 
DATA BIN 
DATA BIN 
DATA BIN 
DATA BIN 
DRTA BIN 
DATA BIN 
REM 

DATA BIN 
DATA BIN 
DATA BIN 
DATA BIN 
DATA BIN 
DRTA BIN 
DATA BIN 
DATA BIN 
REM 

DRTA BIN 
DATA BIN 
DATA BIN 
DRTA BIN 
DATR BIN 
DRTR BIN 
DATA BIN 
DATA BIN 
REM 

DATR BIN 
DATA BIN 
DATA BIN 
DATA BIN 
DATR BIN 
DATA BIN 
DATA BIN 
DATA BIN 
REM 

DATA BIN 
DATR BIN 
DATR BIN 
DATA BIN 
DATA BIN 
DATA BIN 
DRTA BIN 
DRTA BIN 
REM 

DRTR BIN 
DATA BIN 
DATA BIN 
DRTR BIN 
DRTR BIN 
DATA SIN 
DATA BIN 
DATA BIN 



00 11 1100 

01100110 

11100000 
11100000 
11 100000 

01100110 

00111100 

00000000 

11111100 

11100110 
11100010 

11100010 

11100010 

11100110 

11111100 

00000000 

11111110 
11100O0O 
11111100 



11100000 
11100000 
■ M11110 



11111110 

1110OBOO 
111O00OO 
11111100 
L11OO0O0 
111OO00O 
11100000 



00111100 
01100110 

1I1OOOO0 
1110O0O0 
11101110 
01100110 
00111100 
00000000 

11100010 
11100010 



01111 100 

00111000 
00111000 
00111000 
00111000 
00111000 
"1111100 



00111110 
00011100 

00011100 
O00111O0 
00011100 
10011100 
01111000 

00000000 

11100100 

11 10 1000 
11110000 
11110000 
11101000 
11100100 
11100010 



11100000 
11 L0O00O 
11100000 
11100000 
1110O0O0 
11100000 
1 1 1 1 1 1 10 
00000000 



11110110 

11101010 
11100010 

1 1100010 
11100010 
11100010 



l--i.lv) 



INf 



1850 FOR F = l TO 5 
1660 BEEP .05,-10 
1670 PRINT AT 7t2*F,7,A*(Fl 
1630 LET F$=STR$ A<F. 
1890 LET U=26-LEN F* 
1400 PRINT AT 7*2*F,U,RIF) 
1910 NEXT F 
1920 LET F»=STR* SC 
1930 LET U*26-LEN F« 
1940 PRINT AT 19,5, INK 7, BRIGM 
" -uotre score ", paper 0,AT 



19,i 



;F» 



1950 PRINT U0," UNE AUTRE PAR 

TIE ? <0/Nl 

1960 LET CHL*0 

1970 IF INT (CMLV2) =CHL/'2 THEN P 
PINT AT 19, U, PAPER 0, Gi I TO LEN 
F«) GO TO 1990 

1930 PRINT AT 19. U, PAPER O, INK 
7,P« 

1990 LET CHLiCHL+1 

2O00 PRUSE 15 

2010 IF INKEY»="" THEN GO TO 197 



1140 PRINT AT 21.20. 
NIJS ■'•. INK 7, " 40" 
1150 bEEP .05.30 
1180 BEEP .05.2O 
1170 PRINT 00. BRIUM 



2020 


IF XHKEYl 


="N" OB I 


<KEY* = "r," 


THEf 


LET 


■8030 PRINT 


AT 21,4, 


"PO'J 




<tt GOTO 


" eec 


P .5 


20' "go fc 


9000 




2030 


PAPER 7 






2040 


INK < 








2050 


BORDER 2 






. i»J 


CLS 








2070 


GO SUB 6320 




2 03O 


GO TO 210 






J'.ViH 


PEM 








2100 


PEM 








2110 


REM 


o«r ■ 


nition MAJU3CULES. 


2120 


REM *»..< 






2130 


REM 








2140 


DRTA 


BIN 


00111000 




a i5e 


DATR 


BIN 


01111 100 




2 160 


DAI A 


BIN 


11 100010 




2i;o 


DATA 


BIN 


11100010 




2160 


DATA 


fclN 


11111110 




.-1 ■■.- 


DATA 


bill 


11100010 




2200 


t.ATA 


bill 


11 100010 




22 10 


Data 


bin 


00000000 




. -■ , ■ ,-■ 


PEM 








2: ja 


DATA 


BIN 


11111000 




2 9-10 


DATA 


BIN 


1 ] 100 100 




2250 


LATA 


BIN 


1111 lOOO 




,?,.->■ 


DATA 


BIN 


11111100 




-. 70 


CRT P. 


( . in 


1 1 LOOO L0 




22 30 


DATR 


BIN 


1 1 100010 




2290 


[•Hi H 


bill 


11111 100 




2 300 


DATA 


l.Il, 


00000000 





3300 REM 
3310 DATR 
3320 DATA 
3330 DATA 
3340 DATA 
33S0 DATA 
3360 DRTR 
3370 DATA 
3380 DRTR 
3390 REM 
34.00 DATA 
34 10 DRTA 
3420 DATA 
3430 DATA 
34 40 DATA 
34 50 DATA 
3460 DATR 
3470 DATA 
3430 REM 
3490 DRTA 
3500 DATA 
3510 DATA 
3520 DATA 
3S30 DATA 
3540 DATA 
3550 OATA 
3560 DATA 
3570 REM 
3580 DRTR 
3590 DRTA 
3600 DATA 
3610 DRTR 
3620 DATA 
3630 DATA 
3640 DATA 
3650 DRTA 
3660 PEN 
3670 DATA 
3680 DATA 
3690 DATA 
3700 OATA 
3710 DATA 
3720 DATA 
3730 DRTA 
3740 DATA 
3750 REM 
3760 DATA 
3770 DATA 
3730 DATR 
3790 DATA 
3600 DATA 
3610 DATA 
3320 DATA 
33 30 DATA 
3340 REM 
3650 DATA 
3360 DATA 
,..;o i-.wm 
3330 DATR 
3690 DATA 
3900 DATA 
3910 DATA 
3920 DATA 



BIN 111000 10 

BIN 11110010 

BIN 11101010 

BIN 111O011O 

BIN 11100010 

BIN 111000 10 

BIN 11100010 

BIN 000O0OOO 

BIN O011100O 



1110O01O 
01100100 
00111000 
00000000 

1111110O 
11100010 

11100010 
11100010 
11111100 
1 1100000 
1 1 10O00O 



13 IN 
BIN 
BIN 
BIN 
BIN 

BIN 000O00OO 

BIN 00111000 

BIN O11OO10O 

BIN 111OO01O 

BIN 11100010 

BIN 11101O1O 

BIN 011011O0 

BIN 00111010 

BIN 00OOOOOO 

BIN 11111100 

BIN 11100010 

BIN 11 10OO1O 

BIN 1 11 I 1 100 

BIN 11 1OO100 

BIN 11 lOOO IO 

BIN 11 lOOO IO 

BIN 00000000 

BIN 011111OO 

BIN 11100OO0 

bill 01 11110O 

B in 0000 1 1 10 

F. IN O0OO1 1 IO 

B IN 10001 1 IO 

BIN 011 moo 

I:, IN OOOOOOOO 



E-IN OOl ] IO0O 

BIN OOl 1 lOOO 

bill OOl 1 lOOO 

LIN OOl 1 lOOO 

LIN OO111O0O 

E. Ill 001 1 lOOO 

BIN OOOOOOOO 



3930 
3940 
3950 
3960 
3970 
3980 
3990 

4000 

4010 
4020 
4030 
4040 
4050 



4090 

4 100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
.1230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4330 
4390 
4.400 
4410 
4420 
4430 
4440 
4450 
4460 



REM 

DATA 

DRTR 

DATA 

DATA 

DRTA 

DATA 

C-hTh 

DATA 

REM 

DATA 

DRTR 

DRTA 

l-hTh 

DATA 

DATA 

DATA 

REM 

DATA 

DATR 

DATA 

DRTA 

DRTR 

DhT a 

DATA 

DATA 

REM 

DATA 

DRTA 

DATA 

DATA 

DATA 

DATA 

OATA 

DATA 

REM 

DATA 

DATR 

OATH 

DATA 

DRTA 

DATA 

DATA 

DATA 

REM 

DATA 

DATA 

DATR 

DATS 

DRTR 

DATA 

DATA 

DATA 

4.470 REM 

4480 REM 1 

4490 REM 1 

4500 REM i 

4510 REM 

4520 DATA 

4530 DATA 

4540 OATA 

4550 DATA 

4560 DRTA 

4570 DATA 

4580 DATA 
4590, DATR 

4600 REM 

4610 DATA 

4620 DATA 

4630 DRTA 

4640 DATR 

4650 DRTA 

4660 DATR 

4 670 DATA 

4680 DATA 

4690 PEM 

4700 DATA 

4710 DATA 

4720 DATA 

4 730 DATA 

4740 DRTR 

4750 DRTA 

4760 DATA 

4770 DATA 

4780 REM 

4790 data 

4300 DATA 
4810 DATA 
4820 DATA 
4330 DATR 
4S40 DATA 
4850 DATA 
4360 DATA 
4870 REM 
4380 DATA 
4390 DATR 
4900 DRTA 
4910 DATA 
4920 DATR 
4930 DATR 
4940 DATA 
4 950 DATR 
4960 PEM 
4970 DATA 
4980 DATR 
4990 DATA 
500O DATA 
5010 DATA 
5020 DATA 
503O DATA 
5O.10 DhTh 
5050 REM 
5060 DATA 
5070 DATA 
5080 DATA 
509O DATA 
5100 DATA 
5110 DATA 
5120 DATA 
5130 DATA 



11100010 
11100010 
11100010 
11100010 
11100010 
11100010 
01111100 



11100010 
11100010 

11100010 

11100010 
01110010 

00111100 



11101010 

11101010 
11101010 
11101010 
111B1010 
11101010 
O1110100 



11100010 
11100010 
O11101OO 
00111000 
01011100 
10001110 
10001110 



J*S,£ 



il6-33« 



latisii 



11100010 
11100010 
01110100 
00111000 
00111000 
00111000 
00111000 
00000000 

11111110 

00001110 
00011100 
00111000 



BIN 00111000 

BIN OI10110O 

BIN 11101010 

BIN 1111O01O 

BIN 11100010 

BIN 01100100 

BIN 00111OOO 



BIN 00011100 

BIN 00111100 

BIN 01111100 

BIN 11011100 

BIN 00011100 

BIN O0O111OO 

BIN 00011100 



BIN 01111000 

BIN O1O0110O 

BIN 10001110 

SIN 0O001110 

BIN 00011100 

BIN 01111000 

BIN 11111110 

BIN O00OO0O0 

BIN 01111000 

BIN 10001110 

BIN 00011000 

BIN 00001110 

BIN 00001110 

BIN 10001110 

BIN 01111000 

BIN 00000000 

BIN 00011100 

BIN O011100O 

BIN O111OO0O 

BIN 11100000 

BIN 1110O10O 

BIN 11111110 

BIN 00000100 

BIN O0000O0O 

BIN 11111100 

BIN 11100000 

BIN 1111H0O 

BIN 00001110 

DIN 00001110 



BIN 00000000 

BIN 01111100 

BIN 11100000 

BIN 11111100 

BIN 11100010 

BIN 11100010 

BIN 1110O01O 

BIN O11111O0 

BIN OOOOOOOO 



5540 NEXT 9 

5550 NEXT f 

5560 LET Char =Ch4r-£56 

5570 POKE 23607, INT Kh)r/256i 

5550 POKE 23606, Char -256»lNT 1 

ar/256i 

5590 LET char =o*.ar*S20 

5600 RESTORE 

5610 FOR j=0 TO 25 

5620 FOR i=0 TO 7 

S630 READ C 

56*0 POKE char+i 

5650 NEXT 1 

5660 NEXT j 

5670 FOR j=0 TO 

5630 FOR i -0 TO 

5690 READ C 

570O POKE Char*i 

5710 NEXT 1 

5720 NEXT j 

5730 FOR F=0 TO / 

5740 POKE Char-33*3*F. 

5750 NEXT F 

5760 GO TO 120 

5770 REM 

S760 REM ***♦ 

5790 REM * 

5800 REM **4t 

5810 REM 

5320 DIM A(6> 

5330 DIM A* 16 , 101 

5840 FOR F=l TO 6 

5850 LET A»(F)="NUL" 

5860 LET A1FI 30 

5370 NEXT F 

5680 DATA "A" 

S390 DATA BIN OOOOOIOO 

5900 DRTA BIN OOO0O10O 

5910 DRTR BIN 11111111 

5920 DATA BIN O1OOOO0O 

5930 OATA BIN 01000000 

5940 DATA BIN O100OOOO 

5950 DRTA BIN 11111111 

5960 DRTA SIN 00000100 

S970 DATA "B" 

5980 DATA SIN 00011000 

5990 DATA BIN 00111100 

6000 DATA BIN 10011001 

6010 DATA BIN 01111110 

6020 DATA BIN 00011000 

6030 DATA BIN 01100100 

6040 DRTA BIN 10O0O1OO 

6050 DATA BIN O0O0O10O 

* 6060 DATA "C" 

* 6070 DATA BIN 0OO11O0O 

* 6030 DATA BIN 00111100 
6090 DATA BIN 10011001 
6100 DATR BIN 01111110 
6110 DATA BIN O0O11OOO 
6120 DATR BIN 0010O110 
6130 ORTfl BIN OO1OOO01 
6140 DRTA BIN 00100000 
6150 DRTR "D" 
6160 DATA BIN OOOOOOOO 
6170 DATA BIN 00001100 
6180 DATA BIN 00010000 
6190 DATA BIN O0111100 
6200 DATA BIN 01111110 
6210 DATA BIN O1111110 
6220 DATA BIN 00111100 
6230 DATA B~ 
6240 RESTOR 
6250 FOR F=_ 
6260 READ B« 
6270 FOR N=0 TO 7 
6280 READ B 
6290 POKE USR B»*N,B 
6300 NEXT N 
6310 NEXT F 
6320 LET SC=0 
6330 LET X=16 
6340 LET Y-19 
6350 LET U=0 
6360 LET Gt=" 
6370 RETURN 
6380 REM 

6390 REM »**»#*»***+** 
6400 REM * debul 
64-10 REM •-- .,..,..... . 



5380 



TEZ LE MAGNETO 
ENTEZ UN INSTANT 




6450 PRIN 

6460 PRINT AT . 

ARAUOEUR" 

6470 PRINT AT 2L,3;"& 1934 

IR Chfii toph*"' 

6430 RETURN 

9000 PAPER 

9010 STOP 

9999 CLEAR 



INK O BORDER 7 
SAUE "hur" LINE 10 



5140 
5150 
5160 
5170 
5180 
5190 
'3 20O 
5210 
5220 
5230 
5240 
52S0 
^«tl 
5270 
5 230 
5 ,.'90 
■-■ .100 
5310 
5320 
5330 
■J,j.l\i 

'., V/.0 

5360 

5 370 
5 3 30 

-.. ,-.o 

5*00 
54 IO 

5 4 20 
'.., .0 
■--..(.10 

',i':,o 

5 4.30 
237." 
54 70 
K 23 

54 30 
5 4. =.0 
','.00 

55 10 



REM 

DRTA BIN 11111110 

DATA BIN 00001110 

DATA BIN 00001110 

DRTA BIN O00111O0 

DRTR BIN 00111000 

OATA BIN 01110000 

DATA BIN 11100000 

DRTR BIN 00000000 
REM 

DATA BIN 01111100 

OATA BIN 11100010 

DATA BIN 0111110O 

DATA BIN 11100010 

DATA BIN 11100010 

DATA BIN 1110O01O 

DATA BIN 01111100 

DATA BIN 00000000 
REM 

DATA BIN 01111100 

DATA BIN 10001110 

DATA BIN 1000111O 

DATA BIN 01111110 

DATA BIN O0OO111O 

DATA bin OOOO HIO 

DATA BIN 01111100 

DATA BIN 00000000 

REM 

REM ********** I* tf *ff ****** 

PEN *d< f ini t ton or»ct«f«i 

REM ******* .*..*. 

REM 

CLEAR iPEEh 23730. 256. PEEK 
1 1 -ar " 
let char 



-PEEK 23730*256. PEE 



GO SU6 64 30 
FOR F*l TO 96 
BEEP .002. f/2 



presentat ion 




If 



LA VENGEANCE DU PRINCE 



Le bruit court dans la foret de Sherwood, que le Prince 
Jean a enleve votre fiancee et la detient prisonniere 
dans son chateau hante.N'ecoutant que votre courage, 
vous allez tenter de la delivrer le plus vite possible. 

Serge DUTILLEUL 

Mode d'emploi: 

Pour vous deplacer utilisez les quatre fleches el pour tirer la louche 
L. 

Attention, certaines irappes invisibles vous ramenent au premier ta- 
bleau. 



BASIC SIMPLE 



1 REM ROBIN D£S BOIS 

2 REM DE 

- REM SLRGE PUTILLEUL 

4 REM LA PARADE Bt B4 IMPAS5E DU GAROU 
13013 MARSEILLE 

5 PEH 

10 PTS-0 
20 RANDOMIZE 
30 CALL CLEAR 
40 CALL SCREEN!!') 
70 CALL CHARi33."lf 
9C> CALL CHAR (BO, "II 
lOO CALL COLORd.S, 
110 CALL C0LOR(7.5. 
130 CALL CHAR (104.' 
140 CALL COLOR! 10, ' 
160 CALL CHARC4C.-I 
170 CALL COL0RI2.8. 
ISO CALL HCHARd, 1, 
ZOO CALL CHAR(4B,-: 
210 CALL COLOR* 3. 16 
220 CALL HCHAR<2,7. 
230 CALL HCHAR (3, 25 
230 CALL CHAR'.54."3 
260 CALL C0LDR(4,II 
270 CALL HCHAR12.3. 



11 12, 



4241818242418'-: 



■ -■:;■....■:■ 



C7EFFFFFFFF7E3C"! 



83C42DBDB423C1S 



FFFFFFFFFFFFFF" 



300 CALL COLOR 11 1, 

320 CALL CHARI64.-I 

330 CALL COLOR (3, 7,1 

330 FOR B-3 TO 23 

340 Z-INT(B/2)«2 

370 IF Z=B THEN 380 ELSE 400 

3BO A-6 

390 GOTO 410 

410 CALL VCHAR(A.B,64", 13J 

420 NEXT B 

430 CALL HCMARdB.5,32,20) 

430 CALL VCHAR(3,25,BO,13) 

470 CALL CHARI72, "18187E3A5Aia2424". 

4B0 CALL COLOR (4, 2, B) 

490 DIM AAIIO) 

3O0 A-6 

510 FOR 1-1 TO 10 

320 AA(1)=A 

530 A=A*2 

340 CALL HCHAR(5,AA(I> ,72) 

3SO NEXT I 

S70 CALL CHAR (88. "0808080808080808" 1 

5flO CALL COLrjR(8,2,7> 

tOO CALL CHAR<96."080aOB0808080B08": 

610 CALL C0LOR(9,2,l> 

430 LI~20 

640 CD- 15 

630 CALL HCHARIL1.CD.33) 

64.0 MN=0 

670 GOSUB 1360 

680 CALL KEY'.5,K,S> 

690 IF f-83 THEN 730 

700 IF K-68 THEN 7B0 

710 IF f-76 THEN B30 

720 GOTO 660 

730 IF CO-3 THEN 660 

740 CALL HCHAR<LI,C0.32> 

730 co-co- l 

760 CALL HCHARILI.C0.33) 

770 GOTO 640 

780 IF C0=24 THEN 660 

790 CALL HCHARILI.C0.32) 

BOO CO-CO* 1 

BIO CALL HCHARILI.C0.33) 

820 GOTO 660 

830 GOSUB 1540 

835 PTS-PTS*10 

840 IF HN-3 THEN 640 

B30 CALL VCHARd8,C0,96,2) 

B60 CALL VCHARf6 T C0,88, 12) 

870 Z-INT(C0/2)»2 

B80 IF Z-CO THEN 920 

890 CALL VCHAR(6,C0,64,12) 

900 CALL VCHARIIB,C0,32,2> 

910 GOTO 640 

920 A-CO 

930 IF A-6 THEN 940 ELSE 960 

940 AAID-0 

930 GOTO 1240 

740 IF A-9 THEN 970 ELSE 990 

770 AA(2)-0 

980 SOTO 1240 

990 IF A-10 THEN 100O ELSE 1020 



1010 GOTO 1240 

1020 IF A-I2 THEN 1030 ELSE 

103O AA(4)-0 

1040 GOTO 1240 

1050 IF A-14 THEN 1060 ELSE 

107O GOTO 1240 

1080 IF A-lfc THEN 1090 ELSE 

1090 AA<6>-0 

1100 GOTO 1240 



140 IF 



■30 



I I 30 ELSE 



70 



1 160 GOTO 1240 

1170 IF A-22 THEN tlBO EL 

HBO AA(9)-0 

1 190 GOTO 1240 

1200 IF A-24 THEN 1210 ELSE 1230 

1210 AA(10)-0 

1220 GOTO 1240 

1230 GOTO 920 

1240 CALL SOUNDISO,-6,0> 

1230 CALL HCHAR(5,A, 104) 

1260 CALL SOUND(30.-3,0) 

1270 CALL SOUND<30,-7,0> 

1280 CALL VCHAR!1B,A,32,2) 

1290 CALL VCHARI6,A,64,12) 

1300 CALL HCHAR<5,A,40> 

1310 FOR 1-1 TO 10 

1320 IF AACD-0 THEN 1330 ELSE 1 33' 

1330 NEXT I 



> GOTO 1900 

> SOTO 660 
) A=INTI10»RND)*1 
i IF AA<A)-0 THEN 1430 
I CALL VCHARI6.AAIA) ,BB. 12: 
) CALL VCHAR(1B,AA(A! ,96,3: 

> IF AA(A)=CO THEN 1450 

) COLL VCHAR(6.AA(A) ,64, 12: 
) CALL VCHARf 1B,AA(A),32,3: 
) RETURN 




TI99/4A 




I4S0 


CALL VCH0R(6,CC,64, 12) 




1460 
1470 


CALL VCHAR(ia,C0,32,3) 
CALL S0UND<30,-7,0> 




1480 


CALL HCHAR(LI,C0,112> 




1490 


CALL S0UNDI50.-6.0) 




1500 


CALL SDUND!50,-5,0) 




1310 
1520 


CALL HCHAR<Ll,C0,32> 
PTS=PTS*10OO 




1530 


C0=15 




1540 


CALL HCHAR(LI.C0,33) 




1350 


GOTO 660 




1560 


IF CO-6 THEN 1570 ELSE 1 


90 


1580 


GOTO 1870 




1390 


IF CO-B THEN 1600 ELSE 1620 




1-2 




1610 


GOTO 1870 




1620 


IF CD- 10 THEN 1630 ELSE 


650 


I430 


1-3 




1640 


GOTO 1870 




1650 


IF CO-12 THEN 1660 ELSE 


6BO 


1440 


1=4 




1670 


GOTO 1870 




1480 


IF CD-14 THEN 1690 ELSE 


710 


1490 
1700 


1-3 

GOTO 1B70 




1710 


IF CD-16 THEN 1720 ELSE 




1720 


1-4 




1730 


GOTO 1B70 




1740 


IF CD-IB THEN 1730 ELSE 


770 


1750 


1-7 

GOTO 1870 




1770 


IF CD-20 THEN 1780 ELSE 


BOO 


17B0 


I -a 




1790 


GOTO 1870 




1BOO 


IF Cq-22 THEN 1810 ELSE 


830 


1810 


1-9 




1820 


GOTO 1870 




1830 


IF CO-24 THEN 1840 ELSE 


840 


1840 


1-10 




1850 


GOTO 1B70 




1840 


RETURN 




1870 


IF AACD-O THEN 1880 ELS 
HN-3 


1890 


1890 


RETURN 




1900 


CALL C0L0RU2, 13, ?> 




1910 


CALL CHARU24, "18187E3A5 


1182424" 


1920 


IF !CO-25>*(LI-18> — 2 TH 


_«N 2080 


1930 
1940 


IF LI-IB THEN 2000 
IF CO-25 THEN 2040 




1950 


CALL HCHORILI.CO, 32) 
LI-LI-1 




1970 


CO-CD* 1 




i 980 


COLL HCHORILI.CO, 33) 




1990 


GOTO 1900 




2000 


CALL C0L0RU2.5,8) 




2005 


CALL HCHARILI.C0.32) 




2010 


CO-CO* 1 




2020 


CALL HCHAR(LI,C0,33) 




2030 


GOTO 1900 




2040 


CALL HCHAR(LI,C0,32> 




2050 


LI-LI-1 

CALL HCHAR(LI,C0.33> 




2070 


GOTO 1900 




20B0 


CALL HCH0R(LI,C0,32) 




2090 


LI-17 




2100 


CALL HCHAR(LI.C0,124) 




2110 


FOR 1-17 TO 3 STEP -1 




2120 


CALL HCHARd, CO, 126) 




2130 


FDR J-l TD 200 




2140 


NEXT J 




2130 


CALL HCHARd, CO, 80) 




2140 


NEXT 1 




2170 


CALL COLORfl2,3,8) 




2180 


CALL HCHARI4, 23,124) 




2190 


CALL S0UND(400.B00,O) 




2200 


CALL SOUND (200, 400.0) 




2210 


CALL SOUNDC400.80Q.O) 




2220 


CALL KEV(O.K.S) 




2230 


IF S-O THEN 2220 




2240 


CALL CLEAR 




2230 


FOR 1-1 TO 4 




2240 


AA<I>-!9 




2270 


NEXT I 





2320 

2350 
2370 
2380 
2390 
2400 
2410 
2420 



2470 
2480 
2490 
2500 

2310 

2330 

. MO 
2330 
2340 
2370 

2380 
2390 



CALL SCREEN (2) 

CALL CHARI33,"1B107ESASA1B2424": 

CALL COLOR! 1,3, 1) 

CALL CHAR (80, "0808080808000808 " ! 

CALL C0LQR<7,7, 1) 

CALL CHARI36, "EOlCOEOl") 

CALL CHOR(37,"0000OOE01C030000" 

CALL CHARI3B, "OOOOOOOOOOB0700f ": 

CALL C0L0RI4.7, 1) 

CALL HCHARd . 1,36) 

CALL HCHARd. 2, 37) 

CALL HCHARI I, 3.5H) 

CALL HCHAR(2.4,36> 

CALL HCHAft (2, S, S7) 
CALL HCHAR(2,A,Sei 

CALL HCHAR<3.7,36> 

call HCHAR (I, a. 371 
CALL HCHAR(3,9 f SS) 
CAI. I. HCHAR (14,24,34) 

call HCHAR(I0,2S,S7) 

CALL HCHARUO.24,58) 

CALL HCHARU I. 2/, 36) 

CALL HCHAPdt,2tl,3/) 

CALL HCHARd 1.29.38) 

CALL HCHAR 113 . 50,36) 

CALL HCHARI 12,31.5/) 

CALL HCHARI 12.32.30) 

CALL char (59, -•' 

CALL CHAR (60, "0000031CEO") 
CALL CHARI61. "0F70B") 



° . HI HAP 112,1. 

~t SO CALX "'.'(,.i- (12.; 

2640 CALL HCHARI !.". _ . 

:-::,. CALL v^CH'--*- 111,4,59 
" ;460 CAI :_ HCHAR CU.S 
© 2670 CALL HCHARU I, <5 
' 2480 CALl HCHARI tO, ' 

2690 CALL HCHAf I : . 9,60 
ILL HCHARI 10,9 

2710 A-24 

2720 FDR 1-3 TO 1 STEP - 

2730 CALL HCHARd, A.S9) 

2740 A-A+l 

2730 CALL HCHARd, A. 60) 



2770 COLL HCHARd. A, 41) 
2780 A=A*1 
2790 NEXT I 

2800 CALL CHARI42.-0101010101OlOH.il-> 
2810 CALL CHAR(43,"000OO0OO000O00FF~) 
2820 r JALL CHAR(64,"8C'8OBu8OB080BO8O-J 
2B30 CALL CHAR(65,"FF") 
2840 CALL HCHAR (3. 10.63. 1 4) 
2850 CALL HCHARIIO. 10. 65,14) 
2B60 CALL VCHAR(4,9,62,6) 
2870 CALL VCHAR I 4. 24,64, 6) 
2B80 CALL C0L0RI5.7.1) 

29O0 CALL CHARI40, "FFFFFFFFFFFFFFFF-l 
2910 CALL C0LOR(2, 13,1) 
'2920 FOR 1-14 TO 16 
2930 CALL VCHAR (3, I , 40, 5) 
2940 NEXT I 

2960 CALL CHAR<72, "423C5A7E7E3C3C42- ) 
2970 COLL COLOR (6,3,1) 
2990 Ll-1! 
2990 CI =10 
30O0 L2=Mt 
3010 C2-20 
3020 L3-1S 
3030 C3-13 
3040 L4-15 
3030 C4'17 
3060 CALL HCHAR (LI 
3070 CALL HCHAR (L2 
30B0 CALL HCHAR (L3. 
3090 CALL HCHARIL' 
3110 CALL CHAR(4B 



20 LC=U 

30 CC-13 

40 CALL HCHAR tLCCC' 

50 CALL C0L0R13.7. 1) 



.01,72) 
,C2,72) 
,C3,72) 
,C4,72> 

"0O0O40A3BF4000O0" 1 



2, "OOOOOOOOOOOOOOFF" ) 
3. "BOBOBOBOaoaoaOBO") 
4, "0101010101010101 ") 
1.7,1) 

2,3) 



.CO. 33) 



.CO. 33) 



ia3C42DB0B4242ie": 



-1 THEN 3420 



CHAR ( I 

32 CALL CHARd 

53 CALL CHARd 

34 CALL COLOR I 

35 CALL HCHAR ( 

36 CALL VCHARI5, 13. 1 14,5 
57 CALL VCHAR(5, 17, 1 13,5: 
70 LI-20 

:i80 CO- 1 3 

. HCHAR(LI,C0,33) 

3200 GOSUB 4120 

3210 CALL KEY(0,K,S) 

3220 IF K-B3 THEN 3260 

3230 IF K-6B THEN 3310 

3240 IF K-76 THEN 3360 

3230 GOTO 3200 

3260 IF CO- 10 THEN 3200 

3270 CALL HCMARILI . CO. 32) 

3280 CO-CO- 1 

3290 CALL HCHARd 

3300 GOTO 3200 

3310 IF CD-23 THI 

3320 CALL HCHARU 

3330 CO-CO* I 

3340 CALL HCHARd 

3350 GOTO 3200 

3360 CALL CHARIB8.' 

3365 PTS=PT5*10 

3370 CALL COLOR' 

33BO IF (CO-13)- 

3390 L6-1I 

3400 D6-9 

3410 GOTO 3440 

3420 L6-13 

3430 D6-4 

3440 COLL VCHAR(L6,C0,80,D6) 

3450 IF 1C0-10)* (CD-20)— 1 THEN 34B0 

3440 IF (CO-13)*(C0-171— I THEN 3480 ELS 
E 3470 

3470 GOTO 3490 

3480 GOSUB 4510 

3490 CALL VCHAR 1L6. CD, 32,061 

3500 FOR 1-1 TO 4 

3310 IF AAd)-0 THEN 3320 ELSE 3540 

3320 NEXT I 

3330 GOTO 3360 

3340 GOTO 3200 

3360 Z-INTI23»RND)*10 

3370 X-INT(18»RND)*I2 

3580 IF <Z>23)*IZ<!0>--1 THEN 3560 

3590 IF (X>IB)*CX<12>--I THEN 3360 

3600 CALL KEVI0.K.9) 

3610 IF K-B3 THEN 3630 

3620 IF K-68 THEN 3730 

3630 IF K-69 THEN 3B10 

3640 GOTO 3600 

3630 IF CO-10 THEN 3600 

3660 CALL HCHAR (L I .CO, 32) 

3670 CO-CO- I 

36B0 CALL HCHARILI.C0.33) 

3690 IF ICO«13)*(LI-l 

3700 IF (CO-Z)»<LI-X) 
3600 

3710 CALL SOUNDI200. 300,0) 

3720 GOTO 30 

3730 IF CO-23 THEN 3600 

3740 COLL HCHAR(LI,C0,32) 

3730 CO-CO* 1 

3760 COLL HCHAR(LI.C0,33) 

3770 IF (C0-13)*(LI=1I 1--2 THEN 3890 

3780 IF (CO-Z) ULI-X)— 2 THEN 3790 ELSE 
3600 

3790 CALL SOUND (200. 300. O) 

3800 GOTO 30 

3B10 IF LI-ll THEN 3600 

3820 CALL HCHOR (L I . CO, 32) 

3840 CALL HCHAR (L I . CO. ' ■.) 

3B30 IF IC0-131*(LI-III— 2 THEN 3890 

3860 IF <Ca-Z)*(l.J-X>--2 THEN 3870 ELSE 

3870 call S0UN0t2O0|3OO,0) 

3B80 0(1 1 II -■■ 

3890 call CHAn(4a,"ooooiBisiaiB"] 

1900 CALL CDL0R(3.7, 13) 

3910 CAlL HCH0R(7. I6.4Q) 

..-■■ CAI i IOUNB i ■'-■ I" ' "■'" 
:?J0 call CHAft(4B l o 0000303ilD I 

(940 COLL 30UNDI13. 1000.01 

J9S0 CALL CHA«(4B,"000 II ' ■ 

I960 COLL SOUND dS, 1000.01 



39fr> 
"- - 

I 

■■ ■: 
4O20 

I ' 

-■ I 
4«S0 
■• I 
■■■ ■ ■ 
40B< 
4090 
4100 
4110 

. 
4 ISO 
4140 
4120 
4130 
4160 
4170 
4160 
4190 

*:•: .■ 

4210 
4220 
4230 

4240 
4250 
4260 
4270 
42BO 
4290 
4300 
4310 
4320 
4330 
4340 
4330 



4300 

4310 
4320 

4330 
4340 



43/0 

4380 
4390 
4600 
4610 

4620 

4640 
4630 
4660 
, 4470 
4680 
4490 
4700 
4710 
4720 
4721 
4722 
4723 



: 
IF S*0 Tr.- - 

■ 
CALL C»«.-'. ■- 
CALL CHAR! :Z. fFFCJ 
CALL VCHI 

. ■■■ . 
CALL MCMW - . 
CALL SOUK . 

CALL VCHAf 
H 

CALL SOUM i: . - 

CALL VCHAR45, 14, S2.3) 

CALL SOuijE I! . 

. 

Z-INT(4>RN0>«1 

IF 12 4>-<Z 1---1 Tr€). - . 

CN 2 GOTO 4120. i : 

L5-LI 

IF AA(l>—_- IHEr, -.: 

CS-C1 

DS-10 

GOTO 4340 

L5-L2 

IF AA(2)=0 THEN 4370 

C5-C2 

03-10 

GOTO 434C- 

L5-L3 

IF AA(3)-0 THEN 4370 

C3-C3 

D3-6 

GOTO 4340 

L5-L4 

IF AA141-0 THEN 4370 
C3-C4 

CALL VCHOR(L3*1.C3,80,D5> 

IF C3-CQ THEN 4380 

CALL VCHAR(L3*1,C3,32,D3) 

RETURN 

CALL CHAR(B8, "1B3C42D&DP423C18-) 

COLL COLOR (8, 11.1) 

CALL S0UND(SO,-?.O> 

CALL HCHAR(LI.C0,88> 

CALL S0UND(50,-6.0) 

CALL S0UND(50.-5.0) 

CALL HCHARILI.CO.BBl 

PTS-PTS*I000 

COLL VCHAR(L5*1.C5.32,D3) 

CO- 13 

COLL HCHORILI.CO, 33) 

GOTO 3200 

F CO-10 THEN 4320 ELSE 4530 

F AA(l)-0 THEN 4490 
AA ( 1 ) -O - 
GOTO 4630 

F CO-20 THEN 4360 ELSE 4390 

F AA(2)-0 THEN 4690 

GOTO 4430 

F CO- 13 THEN 4600 ELSE 4630 

F AA(3)-0 THEN 4690 
AA(3)-0 

GOTO 4430 

IF 0A(4)-0 THEN 46VO 

AA ( 4 I »0 

CALL S0UNDI30.-6.0) 

CALL HCHARfL6,C0,B8> 

CALL B0UN0(50,-3,0) 

CALL S0UND(50.-7.O» 

RETURN 

CALL KEY(O.H.S) 

IF S-0 THEN 4 700 

CALL CLEAR 

GOSUB 4723 

GOTO 3120 

GOTO 4740 

CALL CHARI40. "FF") 

CALL -CHAR (41, "804020 100B04020 1") 

CALL CHAR(42, "01 02040010204080" i 

CALL CHAR(43."0101O101010lO101") 

COLL CHARI44. ■•BOBOBOOOBOSOnOBO" ) 

COLL C0LOR(2,7, 1) 

CALL CHOR(34," 182424 1B1824241B") 

CALL CHAR(36,"08080808080BOH08") 



4794 


CALL C0L0R(4, 


7, 1) 


4793 


CALL CH0RII26 


, " 183C42DBDB423C 1 8" 


4796 


CALL COLOR 112 


.11,1) 


4800 


CALL HCHARd. 


1.40.32) 


4820 


CALL HCHOR <2i" 


,1,40,6) 


4B30 


CALL HCHOR (20 


.24,40,9) . 


4840 


CALL HCHAR(3. 


11.40,9) 


4850 
4B60 


A -7 

FOR 1-1 TO 4 




4870 


CALL HCHARd. 


A, 41 ) 


4880 


CALL HCHOR (H 


19,A,41) 


4883 


A-A+l 




4690 


NEXT 1 




4900 


A-23 




4910 


FOR I-l TO 4 




4920 


CALL HCHAR I I 


A, 42) 


4930 


CALL HCHARI I 
A-A-l 
NEXT I 


I9.A.42) 




CALL VCH0RI3 


11,44, 19) 


4970 


CALL VCHARI3 


19.43. 19) 


4980 


CALL VCHAR (1 


6,43, 19) 


SOOO 


CALL VCHAR < I 


24,44, 19) 


5010 


CALL CHARMS 


-FF01O10101010101") 


3020 


CALL CHAR 1 46 


■■FFB0B0B0808080B0 M ) 


5030 


CALL HCHARd 


6,43) 


3040 


CALL HCHOR (1 


24,46) 


5050 


CALL HCHOR (3 


11,46) 


3060 


CALL HCHAR 13 


19,43) 


3070 


COLL CHAR (47 


" f F 4020 1 00804020 1" ) 


3080 


CALL CHAR (48 


'■FFO20408102040B0" ) 


3090 


CALL HCHARI 1 


7,47) 


3100 


CALL HCHARd 


23.48) 


5110 


CALL COLOR (3 


7, 1 ) 


■,i r. 


RETURN 




3120 


CALL CHAR 1 96 


"003C42A381423CI8") 


3130 


CALL CHAR (97 


"I8FF3C3C3C3C3C3C") 


3140 


CALL CHAR19B 


"3C242424242424E7") 


3130 


CALL CHAR (99 


"10F") 


',!:.'-> 


COLL CHARdOO,"OQOF") 


5170 


CALL COLOR (9 


4. 1 ) 


3180 


CALL HCHAR (6 


13.96) 


3190 


CALl HCHAR (7 


13,97) 


S200 


CALL HCHAR <(1 


13.98) 


5210 


CALL HCHAR (7 


14, I0OJ 


-, ■:-■> 


COLL HCHAR (/ 


16,99) 


32 


CALL HCHAR (6 


14.34) 


9239 


COLL HCHAR (6 


16,34) 


3241 


LI -22 




3242 


CO- 13 




324 3 


CALL HCHOR I L 


,C0.33) 


3230 


LI-10 






CI-12 




B270 


LOLL HCHAR (L 


. ' ■ 




CM l HCHMEL 


,CI,»1 



Sulfpfl* IS 



MAZE 64 



Vous venez de derober au Magicien Astar un ensem- 
ble de documents secrets, ce qui dechafne la colere de 
celui-ci. Vous voici done egare dans le chateau du Ma- 
gicien, fort de vos seules armes et de voire courage. 
One unique sortie vous permettra d'echapper a la ire 
du proprietaire des lieux. Choisissez parmi les cinq nl- 
veaux de jeu, et bonne survie. 

Eric JEAN 



Mode d'emploi: 

Votre personnage est caracterise par quatre elements fondamen- 
taux que voici: vitalite, volonte, force et equilibre. Chacune de ces 
caracteristiques vous permet de disposer de capacites particulieres. 
Ainsi, a zero en vitalite, vous mourez; a zero en volonte, vous ne 
disposez plus de defenses: a zero en force, vous ne pouvez plus 




COMMODORE 64 



vous deplacer; enfin a zero en equilibre, vous ne pouvez plus vous 
considerer comme sain d'esprit. Les points dont vous disposez au 
depart vont varier en fonction des lieux ou vous passerez et des 
rencontres, fortuites, que vous subirez. Les robots qui defendenl le 
chateau se regroupent, evidemment. aux alentours de la sortie, lis 
appartiennent a cinq categories, reconnaissables par leurs couleurs. 
Leur couleur determine leur resistance au combat. Lorsqu'ils vous 
attaquent, et vous touchent, vous perdez de la vitalite. Si, par mal- 
heur, vous rencontrez Astar, vous devrez subir ses puissantes atta- 
ques mentales qui feront vaciller votre equilibre; vous amenant tou- 
jours plus pres de ia folie. 

Bien entendu, vous n'etes pas entre commettre ce larcin sans un 
bon equipement d'atlaque et de defense. Vous disposez done, au 
depart, de deux types de defenses: une barriere mentale (activee 
par F1) qui vous permetira de resister aux violentes attaques d'As- 
tar et une armure magique (activee par F3), d6robee a un armurier 
aveugle et manchot, qui vous autorisera une plus grande confiance 
lors de vos rencontres robotiques. A chaque reussite sur votre per- 
sonne, vous perdrez au minimum un point de volonte. D'autre pari, 
la contre-attaque vous est autorisee par un fusil plasma (mise en 



roule par F5) qui vous permetira de vous mesurer a certains des 
robots; et d'un pistolel laser (mise en route par F7) seule arme effi- 
cace contre Astar et certains des robots. La barre d'espace declen- 
che le tir, une fois que vous avez pris farms en main. Bien sur, lors 
d'une attaque, vous pouvez fuir magiquement, mais pour eela vous 
devez disposer de suffisament de volonte. 

Pour vous deplacer, vous utilisez les directions cardmales 
(N.S.E.O). Pour connaftre les coordonnees spatiales de votre posi- 
tion, tapez P; pour vous situer "acoustiquemenl" par rapport a la 
sortie, tapez D (un signal sonore lent el faible vous dit que vous 
etes encore loin de la sortie, un signal rapide et fort vous indique 
I'inverse). Lorsque vous penetrez dans un entrepot, vous pouvez 
manger (tapez M) ce qui augmentera vos forces, vitalite et votonte. 
Si vous vous trouvez devant la sortie, gardee magiquement, vous 
pourrez sortir (C, comme carapater) a la condition expresse que 
vous ayez plus de 40 points d'experience dans votre musette. Si 
elle (Inexperience) est trop faible, il vous faudra repartir pour de nou- 
veaux combats, jusqu'a ('acquisition des points necessaires ou jus- 
qu'a la mort. 



19 DIM V/.<ZQ,36->,t*<?,l3>.l>;'.?.i>.$ltl?.lQ>.%2H7.\e> 

29 S=54272 V-53248 ; GOTO 18980 

39 POKE V-21.0 POKE V-23.127 POKEV-29. 12? 

49 FOP 1=9 TO 12 STEP 2 

59 POKE V+I.35 

69 NEWT POKE V*14,49 

79 FOP J-l TO 15 STEP 2 

89 POKE V'1.138- 

99 NEXT 

189 F0RI-284IT02946- POKE I . 14 IJEXTI 

110 POKE2940.13 POKE2947,15 

139 FOR I-832T0960STEP64 

148 FOPJ*0TO62 RERPR P0KEW,fl-NEXTJ 

159 NEXTI 

160 FOR ('■■■TD;.,;-j FO'-.EI . -NEXT 
\i'i uETi?* IF0*-"-THEMl« 

:€€ p£.*'E •■:-:=:. i f-ove ^.3250.0 

179 PRINT":* REGLE DU JEU ■" 

189 FRIHTTflE'.3)-PEPDiJ.PPRE3 ftVOift TE C DEE LE SECRET- 
IN PRINTTfl?' ?■ Ti.r f'-.jJCIEFi *,iTR-l.',riij: TENTEZ DE" 
299 PRINTTRB<3' /■:'.•; Ei-FUIR. "PRINT 
219 PRIKTTHB«> , LEB FWBOTS NO IRS SONT LES PLUS TER-" 

-■;-: =.r: NT7 2j, ? , -ij, F> .., 7 : ; : _ ; .; ■,■;;,.,;£, ,r : ..,i L'^:.--' ^■I,,-T 
230 FPINT-&E'.- '-rH-LEi ROUGES" 
240 PftINTTftBC4>"a-LEE '.ERTS ■ 
259 PRINTTflE'.4j " T-LES JfiUNES" 

269 FRIHTTMS(4)"a-LE'i ELHNC3" PRINT 

270 PRIHTTREOJ-iVOUS RLLE2 EVOUJER ERN3 LE REPEPE" 
289 PKIHTTTOC3>"irmSTflM,lmEH6£ LflBVRIHTHE DM8 LE-' 1 
299 PPINTTABO.i"WEL H'EKTSTE CUL-.E 3E',LE :CFT : E. " PRINT 
399 PPINTTRBT3>"GRRDEZ TOUJOURS fl L'OEIL VOS POINTS" 

305 =PINTTRB<3>"DE CH=FTEFI :T I'>.E3" PRINT 

397 PRINT-™; :FCUP SUITE ffpijvep 3_ = UNE TQUCHE. »" 

318 GET 0* IFO»="-TH£N310 

311 PPIMT-ra- 

312 PR1NTTRB(3)"R 9 PT PE (VmRLITE.C'EST LR rlORT." 
314 PPINTTRB(3>"fl 9 PT DE fVOJLONTEvPLUS DE DEFENSE." 
316 FRINTTRB<3>"R 9 PT DE <FO)RCE.C'EST L1PUI8EMEHT' 

M6 PMKTTBBO>'fl 9 PT D'(EO)UILIBRE.C'EST Lfi FOLIE. " SPRINT 
?:-? -- INTTPB'.?;'VCU3 fl'/EZ S30I rtlNUTES POUR TROUVEP LH SORTIE.' 
- ; 25 pr;NT7f.E'7>-p Lfl R=SCCHTRE D'UHE DE CES CSEfiTURES" 
338 PRINTTflB'3)"D£UX POSSIBILITES : " : PRINT 
335 PRINTTRB'3.'II- LE COMBRT 1(0)" 

349 PPINTTRB^3)"™- LR FUITE i(F>" PRINTPRINT 

345 PRINTTRB'.3i-vrij3 :h^T5IS-EZ Ti.:ELR "JUS FRIT" 

350 PPINTTRE'3l ,, PEPDRE 1 PT DE VOfWIS VOUS" 

355 PRINTTfi&';;-El>PFFEZ R CE QUI '■'■:■•,? Ff<IT FRCE. ": PRINT 
369 PPINT'TK'.P:u-- TUITE PpsyvER ■,:■_- ijmE "OUCHE. »" 
365 OCT 0*IF0*-""THEN365 
379 P 



375 PPINTTRB' 
3P9 PRINT PR I 
383 PRINT PP1 
339 PRINTTRB' 
395 PRINTTRB' 
480 PPINTTflB' 
495 PPIIITTRS' 



5SEZ 111' 

rvEll'. IE CEFENSE:- 

---IE-E :-E'.TPl= Cijpitpe *-;TRRi" 

KRGIQ'JE CONTRE " PPINTTRB^ 18)"LES ROBOTS. " 
* 1 PT VOLONTE / COUP. "PRINT 
3'BTTROUE "PRINT 
n LRSEP. ■ 
xCSI'm." PRINT 

EFECTIJE.TRPEZ SUP Lfl" 
•CEr'EriT POUR FRIRE FEU." 



558 HBCTJ 

568 NEXT I 

564 FOP I-3T01?;TEP3 TK(l,2>=£ TZ<I-35>-2 NEXT 

566 F0RI-3T034STEP3 T7t<2 IX TK<19, 1)-2;NEXT 

578 FQPI-1T07 PERBSI'I 1- RERSSltCI, 11 HEHDS2*<I/l)tfi£flDffi£CI,l);ROBISXCI,2) 

55.' PERIiTK'.I.J.- PER['3K'I.1.- FZ*l-y,:> I . 'y, EERDS;;< 1 .6) ^NEXT 
590 F0PI-1T07 P0^EV.3S-I .sv'I.4) NEXTI 
653 PRIHT"3" 'OOSUB 9249 
669 X-ll 
679 via 

699 9I--N" TI*o"999999" POKEV*21,9 

699 X2-IHT(PND<1)*13)*1 

700 V2-IHT<RND<1)*36)*1 

719 IF TX^K2,V2)-8THEN699 
715 POKE Z14.2:PRINT-PPINT-.1" 

720 PRINTTRB<!0)- r, /—, s.~ 
725 PRINTTRB(I0r •-*— 'N^-P" 
728 PRlNTTflB(18>" I I " 
730 PPIMTTflBC19>" 10 El " 
735 PPINTTRB(19)~ I I ' 

749 PPIHTTR8<19J" r*— .S^-K* 
745 FKINTTRB<!0)" v '—' «■ 

750 PRINT"*" PR INTTRB'23>"»;RPRCTERISTI0UE3- PRINT PRINT 
755 PRINTTRB(21)"ltVITfiLITE ... ";VI 

769 PPINTTRB(21)"|rW0LOHTE ";VO 

765 PRINTTRB(21>"IF0PCES ",F0 

779 PRINTTRB^l'-'ieOUILIBRE .. ".EO 
775 PRINTTRB'21>"IE>:PERIENCE . -;ex 
75H PRINT 

799 PRINTTHB<21> 1 '!Fl>fiPRET P-ENTRL" 
889 PPINTTRB<21)":F3>RPHUPE MRGIOUE " 
819 PRINTTRBa-L ■ 'IFVP ISTOLflZER 

829 PPIHTTRB(21)"!F7JFU3IL PLRSMfl 

839 PPINT:PRINT 

840 PPINTTRBC31.'"SBTRTU3" 

859 P0KE214,l?:pRIHT 

860 PRINTTi=IB(39>"B.n." 
i73 FPIHTTRBf38)"fl.H.« 

800 PPINTTRB(30)"P.L." 
i PRINTTRB(30)"F.P." 



1310 PRINTTRE'2)"3sr 

1329 PRINTTRB' 1>"3ST 

1330 SS-1 

1349 IF CC-1TMEN1499 

1359 R=INT'PNDM'«3>*1 

1360 IF fl<-2 THEN 1649 



in 



) 1910 



411? PFJ! 

415 PRINTTRE'3'-VfJT* 

428 PRINTT*W<3 :--- = 

425 PPINTTflB' 3j"I'£PE 

439 PRINT PSItlTTPEMVUP vous f'E JOUEP. " PRINT 

-:■■ ff!iiT'-t-';i;i.ii ^jite --m.es -fi;- ijne rou'HE. 
433 GET Qf IF(?f=""THEN435 

440 PRINT-n- PRWPaUVEnu DE DIFFIC'JLTE' 1-18 • 

444 INPUT Zl 

445 vi=24 vo=i4 fo=i7 Eu=i5 E>;«a 

445 PPiNT J ^KOWOaMiI«".TfiF'r.-'riJE COHSTRUIS LE LHBVRIHTHE. " FOKEV+21,1 
439 FOPI>3to:-4 r:.;'3.i.. = i r/.'.i9.ifl R<19.IJ-l M6X1 

46-3 F0PI = 3T013 TK'I.3>-1 jy.'l-lSi'l ir:'I.-4. = i he;;t 

4-g tORI*4T017 

i;.? egs;=4T033 

4:--3 [FTX<I-1,J>-TX<I..J-I>THEN33C 

59-3 IF T X<I*1.J>*1HMDTX'I-J.l >-iTH£n!W 

518 IFTK' 1-1. U-lRNDTJi'I J-l I.1THEN559 

529 IFT/I'I-I. Ji-IWJPTK' 1. i-l .-1THEN559 

539 a*lHT(-ul- : ..Z1.-3 

'.A.-;. ;CFi,:iHENT*:' I . 1..*1 



1070 IF Ti«Xl.ViJ-eTHai»0KE214.14:PRIMI PRINT"IL V fl UN NUP" G0T01649 

[075 33-0 COSUB9480 

1089 IF TZ(X1.V1)-1TH£N1128 

10?. 5 i^suBecee 

1990 P0KE214,14PRINT PRINT "VOUS ETES DRNS UN" 
1100 PRINT" ENTREPOT 

1195 P0KE1238.14:F0KEI32e,S P» E ; 198. 19 P0KE1316. 15 
1118 NN=rlG0T0128e 

1129 r-t;;<xi*i,vi}:f-tz<xi-i,vd C-TKCX1.V1.1J Et-TX<X1,V1-1J 

1121 IFQ*0"3"THEN1124 

1122 Rl-R C1-C.POKE1238.13 POKE1320, 13PDVE1393, 14 P0KE1316.5 

1123 R-B F-Rl C-D P-Cl C-OTOI 139 

1124 IF0fO"£"TH£NH27 

1125 Dl-D Bl-B: POKE 1 238,3 -POKE! 320, 13 P0>E1398. 13 P0KE1316. 14 

1126 S'l C-RD-B1 fl-El G0T01139 

1127 IF 0«-:>"O- , THENP0i'E1233. ]4:prjKE:j2y.3 P0-E13-319 PCKE1316- 15 00TO 1 

1128 Rl-fl Dl-D POKE1238.I3 PQKE1320, 14 POKE! 33S ■; P0K.E1316.I9 

1129 fl-C C-B B-Ii:p-Rl 

1130 IFBO0THEN1218 

1149 IFCO0THEN1189 
1159 IFJ3O8THEN1I70 
1168 F-7OOTOI270 
1179 F-3-GOTO1270 

1150 IFDO0THEN1290 
1199 F =6 GOTO 1278 
1298 F-4 G0T01279 
1210 IFCO8THEN1250 

1229 IF0O9THEN1249' 

1230 Ft3:00T01279 
1248 f--2:50T01278 

12W IFDOerHENF-I -GOTO! 279 
1J69 F-3 

1279 ON F GO:-'- , F , :0i>? 5i'?0 5-J0-"-. 56Hii? . 5330 ■ 6909. 6299-6488 

12?0 :=:•;! vvi 

1290 IF >;<:-2 OP v-:;.vi ihen 1349 

1?.?0 POI'E 214 11 PRINT 



NINBUS 



Vous devez allez chercher des documents dans le la- 
boratoire du docteur Dingus. Mais le parcours est peril- 
leux et e'est presquun miracle si on y arrive. Tout au 
long du parcours, vous decouvrirez des chachs, 
pnumes, zombies, cobras et hyenes. Bonne chance! 



Eric BOUCHER 




1378 I 



CRMDO 



Mode d'emploi: 

PDV veut dire: point de vie, cela represente votre potentiel de viva- 
cite, a 20 vous etes en pleine lorme, a vous etes morlM! 
Pour vous deplacer, vous devez repondre par 1 pour avancer ou - 

I pour reculer. 

II (aut repondre aux questions par O pour oui et N pour non. 

PDV suivi de Z points (:) represente le nombre de points de vie du 
joueur, et lorsque PDV est suivi de = . il s'agit du nombre de points 
de vie du monstre. 
Le code du coftre est un nombre comprit entre 1 el 100. 



11:49 ZH.11 


16 X<Y' 


32»LBL 83 


48 x<=e' 


64 XEO R 


88 CTO 18 


81*LBL -HIMBUS" 


17 GTO 98 


33 "POTION DE ■ 


49 GTO 85 


65 3 


81 -CHflSCH 


82 CLRG 


18 15 


34 »YIEK 


58 GTO 82 


66 RCL 82 


82 flSTO 13 


83 28 


19 RCL 82 


35 PSE 


51*LBL 84 


67 X<V? 


83 3 


84 SIO 81 


M X<V 


36 XEQ fl 


52 "VIE- 


68 GTO 87 


84 STO 84 


85 -ALEP'" 


21 GTO 81 


37 18 


53 flVIEK 


69 5 


85 XEO G 


86 PROMPT 


22 GTO 82 


38 RCL 82 


54 PSE 


78 RCL 82 


86 RCL 12 


87 3T0 12 


23»LBL 88 


39 X<Y7 


55 XEO B 


71 X<V 


87 5 


88 FIX 8 


24 -FIOLE- 


48 GTO 84 


56 RCL 82 


72 CTO 88 


88 • 


89 "EHTPER" 


25 BVIEU 


41 -N0RT- 


57 ST* 81 


73 18 


89 INT 


18 ftVIEU 


26 PSE 


42 flVIEH 


58 28 


74 RCL 82 


98 1 


11 PSE 


27 "OH BOIT- 


43 PSE 


59 RCL 81 


75 X<V 


91 t 


12«LBL 13 


28 XEO C 


44 XE8 B 


68 X>V 


76 CTO 89 


92 STO 63 


13 XE8 B 


29 x=y> 


45 RCL 82 


61 XEO 86 


77 15 


93 -UN- 


14 3 


38 CTO 83 


46 ST- 81 


62 CTO 82 


78 RCL 62 


94 flSTO 89 


15 RCL 82 


31 CTO 82 


47 RCL 81 


63«LBL 81 


79 X(Y? 


95 "IE- 



? B-21*: 

1390 IFiOXi'-iePNIWC-'.; ;*iNLiVJYi-]0PNE,Y.:v2*;ftTMENB«W 

1392 IFR>B THEN 1641 

1394 CC-I 

1396 R-INT<RNDfl.>»6>*l 

:>?;■ poke y*zi.?;;'H.i> vi-s>:'.b.2> 

1490 P0KE214.15 PRINT 

1419 PRINTTflB<17>"|-.31'R.l> GOSUB3960 

1428 P0KE214. 16 PPIHT: 

1425 PPINT-IKOOflFflT 

1438 PRIHT"':F>UIT£ riRGIOUE- 

1431 PRINT" 

1432 PPINT" 

1433 PRINT" 

1434 PRIHJ" 
1433 PRINT" 

143? PRINT" "i 

1449 MTO 1560 

1529 X-llV"ie 

1539 vn.vO-2 F0'F0-2 C0SUB3159 

1549 P0KEV*21,9 Z-13 r.;;ijESf.?a ,;,>r. 00SUB87B3 

1559 OI--N" 0OTO1918 

1368 TU-TI IF TI>«iec?e'CTHEN:.-;Vj£?679 Oi-'NON" 001010919 

1570 GETO* IFCC=9TMEN1649 

1575 IF «M THEN OOSUB 9590 

1589 ifti:-ti. *,-:r?'Pt;r;-.;:: .??.?;;;■ r-n 7 oi568 

1600 IFa«-"F"HNrFO>0flNDVO>0TN£NI32a 

1695 OOSUB 3109 

1610 IF0t<5" "THEN1379 

1629 GOSUB 3380 

1630 G0T01579 

1640 P0KE214. 16 PRINT 

1659 IFNN-nHENPPINT"l:([1)RNGER 

1 668 IFSS- 1 Th'ENPP INT ■ IK C 1RPRPRTER 

1678 PRINT"IKR)£POS " 

1680 PRINT-(R>JUSTEHENT 

1699 PRINT"(P)0SITION 

1709 PRINT"CN>ORD.fS)UD 

1705 PRINT"<E)ST.CO>UE$T " 

1706 PPIHT"(D)ISTRNC£ 

1797 PRINT" *i 

1710 P0KE214.12'PRINT PR1NTTRB< 13) INTCTI/3609) . * HN" 
1720 GET 0*'IF0*-" ,, TMEN1718 

1723 2-13-GOSUB 9809 

1739 IF QtO"M"THEm769 

1740 IF NN-9 TMEN1719 

1759 TX(X.V)-lKN-0 F0-F0*5 VI-VH-2 V0-V0*2 
1753 IF F0>17 THEN FO-17 

■■".':■ ■:■: ;■>.'■ -:'.■:■: ■:■-■:■; \t-i-: 
1769 IF0fO"C"THEN1899 
1779 IF SS-0 THEN1719 

1769 IF£X<4lTHENPOKE214. 14 PRINT PPINT'TRS 
R3SE2 D'EXPERIENCE" G0T0I7I9 
1799 Of="0UP GOTO 19190 
1899 IF Q«0"P" THEH1829 
1810 F0-F0*2 IFFO>17THENF0"17 
1315 0CSUB9139'rMT01648 
1829 IF O»'?>"R"THENI870 

1839 P0KE214.14 PRINT PRINT"HBRE DE VO EN EO " 
1849 GET GGI IF OG*-""THEN1940 

1350 G0"VRL'GG*> IF GCO-VOTHENFPlNT" Ir-.P.V^IBLE" G0T01849 
[PVi? ■.■■cuv/i-;.n EO = EC'OC 00Ei.if?l'c C-0'01640 
1878 IF 0*O"P"THEN1981 

1.;e,i pr-Eji4 14 FP.luT fpint m X» ";X. "...";- V" "-V 
1999 GOTOI640 
1991 IF 0*0" D" THEN] 910 
1983 0OSUV997Q GOTO 1648 
1910 XI -X Vl-V 



Suite page 5 



HP 41 



96 (BTO 88 

97 CTO l I 
98«LBL 87 
99 "COBRA" 

188 flSTO 13 

181 4 

182 STO 84 

183 XEO G 

184 RCL 12 

185 9 

186 • 
167 INT 
188 I 
169 t 

118 STO 83 

111 "UN" 

112 flSTO 89 

113 -LE- 

114 flSTO 88 

115 GTO 11 
I16«LBL 88 

117 -HYEME- 

118 RSTO 13 

119 4 

126 STO 84 



121 XEO G 

122 RCL 12 

123 12 

124 » 

125 INT 

126 1 

127 * 

128 STO 83 

129 -UNE- 
136 (1ST0 69 

131 "Lfl- 

132 flSTO 88 

133 CTO 11 
134«LBL 89 

135 -PNUKE- 

136 flSTO 13 

137 2 

138 STO 84 

139 XEO C 
148 RCL 12 

141 5 

142 < 

143 INT 

144 1 

145 ♦ 



146 STO 83 

147 -UN- 

148 flSTO 89 

149 "LE- 
158 flSTO 88 
151 GTO II 
152»L8L 18 

153 -ZONBIE- 

154 RSTO 13 

155 2 

156 STO 84 

157 XEO G 

158 RCL 12 

159 17 
168 « 

161 INT 

162 I 

163 » 

164 STO 83 

165 -UN- 

166 flSTO 69 

167 "LE- 

Suite pig* 14 



PORTRAIT 



Un cambrioleur s'est introduit dans nos locaux et a de- 
rob6 tous les programmes. Un seul temoin... vous! 
Le mode d'emploi est dans le programme. 



Alain PUYMBROECK * 




■ REH 



IYH8R0ECK HiHiuii 

■ " PE« ECOLE CHE S0HHA1MG SUR ECAILLON** 

30 REM 59213 DE^ERmIN************--*** 
40 REM PORTRhIT P060TMM****(***«at.«t« 

50 REM TO 7 AVEC EXTENSION NEMOIRE***** 

60 REH TO ::>•• i i.iux. 

70 CLS:SCREEN 3.0,0:ATTRB 1,1 

80 LOCATE 6,6,8:PRINT -Qui ?* 

98 LOCATE a. L8,0:PRINT "Ou ?" 

108 LOCATE 0.I4.6:PPINT "Quand ?" 

!I0 ftTTRB 0.0:COLOR 5 

130 LOCATE 6,23.0:PRlNT-pour tonnaitre c 

e; - it.-.* i innt-nt; appusez sur ta t 

out he S •; 

130 AI=1NKEY*:1F (,%<>" THEN 136 

148 At=INKEY«:A=RND:lF (.% = ■' THEM 146 

150 IF AtO-S" THEM 140 

166 AI="VOUS":Bt= - A PARI S, 8e" : C«= 'DI NANC 
HE, 3 h* 

176 ATTRB 1 . 1 : COLOR 7 

190 FOR XM TO LEH;a*>:LOCATE 14+X*2,6,6 

SPRINT M1D»VA*,X,1 .:BEEP:F0R V=\ TO 28:N 
EXT:NEXT 

196 FOP X=l TO LEMCBf >:LOCATE 14*X*2, 18, 

8=PRIHT HID*<B»,X, 1 MBEEP:F0R Y=l TO 20! 

NEXT: NEXT 

260 FOR X=l TO LEN.'CS >:L0CATE 14+X*2, 14, 

8:PRINT HID*(C*,X.l ':BEEP:FQR Y=l TO 20: 

NEXT-NEXT 

210 ATTRB 8,0:COLOR 2 

220 LOCATE B,23,6"-PRINT"Sl uous etes pre 

I a sjuvtr votre journal pre fere, appu^ez 

sur urve touch**; 

230 A*=1NKEY*:1F A*<>"* THEN 238 

240 A1-INKEY«:A^RND:1F A»="" THEN 248 

258 CLS-COLOR 3 

260 Af="Diaanche 13 DC tobre, trois heur 

es du satin, un rjibrioi.vjf a eu lieu 

dans leslocaux de noire confrZre HEBDOGI 

CIEL * 

270 B*="tous les progrartaes en possessio 
n de ce journal ont ltl cflrobls. Nous e 
splrons <*ue cet hebdoaadaire pourra repr 
endre saparution dans un auenir proche. . 



PBfl 


FOR Z=l TO LEN (A$> 






?•*» 


Z*=H1D$<A«,Z, 1) 






<m 


' IF Z»="l" THE* PRINT 




*;:C0T0 224 


tin 


IF Z*=-2- THEM PRINT 




;:G0T0 338 


-VH 


PRIMT z«; 






-■ -n 


BEEP 






140 


FOR Y=l TO 26SNEXT Y 






t*>0 


NEXT 






160 


FOR Z=l TO LEN <B*> 






,(/» 


ZS=HID*<B*,Z, 1) 






iftH 


IF ZJ="I" THEN PRINT 
IF Z*="2" THEN PRINT 




;:COT0 416 


.***« 




; SGOTO 410 


4MB 


PRINT zs; 






410 


BEEP 






4?« 


FOR Y=l TO 20:NEXT Y 






4 ta 


NEXT 






44H 


PRINT: PRINT -PRINT: COLOR 


l:PRINT'M0TE 


DE 


LA REDACTION:-; :C0L0R 


7t 


PRINT" 11 



460 PRIMT:PRINT"Toi 
t dans un tcsoimu 

oiture et ou il etait eclaire par son pi 

a fonnier . ' 

478 FOR X=l TO 8: ACX>=INT<RND«2>*1*(X-1 > 

•2 :NEXT 

488 IF FLAC=0 THEN LOCATE 0, 21,8:PRINT - C 

E TEHOIN C'EST: ";:ATTRB l,l:COL0R l:PRIN 

t - vous-; 

490 ATTRB 8,0:COLOP 2:FLAG=0:F=0 
580 LOCATE 6,24, 0: PRINT 'APPUYEZ SUR UNE 
TOUCHE " ; : RS= I XPUT* C 1 ) 

518 CLS:C0L0R 3:L0CATE 28, 1,8=PRINT-V0US 
AVE2 VU ':L0CATE 28, 3, 0:PRINT - CET HOMH 
E*: COLOR 7 
520 FOR XX-1 TO 8 

530 ON A<XX> COSUB 2080,2180,2288,2368,2 
4 68,2560,2600,2700,2860,2988,3008,3188,3 
280, 33B0, 3488, 3508 
540 NEXT XX 

556 LOCATE 26, 5,8: PRINT'DES OUE V0US':LO 
GATE 20,7,0:PRINT - 5EREZ PR£T,N0US* 
566 LOCATE 20, 9,0: PRINT'COHHENCERONS LE* 
:L0CATE 20, 1 1,0:PRINT-PORTAIT ROBOT* 
570 LOCATE 20, 17,0:PRINT*OBSERVEZ BIEN E 
T":L0CATE 20, 19, 0: PR I NT 'APPUYEZ SUR* 
580 LOCATE 28, 21 , 0= PRINT*UNE TOUCHE* 
590 R*=INPUT*(1) 
600 CLS 

610 A*(l>=- T£TE-:B«(I>=-1-DVALE*:C«(1>= 
■2-R0NBE* 

620 ft*(2) = * r-ENT0N*:B*(2> = 'l-SANS FOSSET 
TE ":C»(2>="2-AVEC FOSSETTE" 
630 A*C3>=" FRANGE-:B*<3)=*l-DR0ITE":Cf( 
3>="2-ECHANCREE" 
646 A«<4>=* NEZ":B«(4)=*1-F0RT-:C«(4>=*2 



-H1NCE" 

658 A*(5>=" 0REILLES*:B*(5)="1-DEC0LLEE5 

*:C*(5)=*2-PLA0UEES" 

668 Af<6)=* YEUXS-:B*(6)="1-CRANDS ET RO 

NDS":«<6> = "2-PETITS ET ETROITS* 

678 «*(71=" B0UCHE":B»{7>=*1-GRANDE ET G 

R0SSE-:C#<7>=-2-PETITE ET fllNCE* 

68B A»<8)=* CICATRICE*:BI<8)=*I-0U1":C»( 

B>=*2-NON- 

690 FOR Z=l TO 8 

766 LOCATE 28,3,8:PRINT SPCC20): :LQCATE 

26,3,0:PRINT Af<Z) 

710 LOCATE 28,6,8:PRINT SPC(28>; :L0CATE 

20,6,0:PRINT B«tZ) 

728 LOCATE 20,8,0:PRINT SPC (Z0); : LOCATE 

28,8,0:PRIHT Ct<Z) 

730 '■■• : i - ITil'i.si ;■ ] 

740 A=ASC(RKZ)):1F C A-49>»<A-50><>8 THE 

N 730 

750 R=VAL<RtCZ)):R-R*<Z-l)«2:R<Z)=R 

760 ON R COSUB 2088,2106,2288,2300,2480, 

2568, 2686, 2708, 2S0B, 2906, 3006, 3160, 3206, 

3360,3400,3580 

776 NEXT 

786 BOXF<20,0>-(39,24>* -,8:C0LOR 3 

790 LOCATE 20, I, 8: PRINT-SI VOUS V0ULE2"- 

LOCATE 20,2,0:PRINT*HODIFIER UN" 

800 LOCATE 28,3,0:PRINT-ELEHENT DU-:L0CA 

TE 28, 4, 8: PRINT "PORTRAIT, APPUYEZ* 

818 LOCATE 28, 5, 0: PRINT'SUR SON NUHERO"! 

COLOR 7 

826 FOR XX=1 TO 8 

038 LOCATE 28,XX*7,8:PRINT XX; ---;A»(XX> 

848 NEXT:C0LOR 1 

858 LOCATE 26, I8,8:PRINT' 9-TERH1NE" 

368 V«-INPUT*C1J:V=VAL<VI> 

878 IF V=0 OR V>9 THEN 860 

886 IF V=9 THEN 940 

890 COLOR 8,8 

980 ON R(V) GOSUB 2080,2108,2200,2308,24 

00, 2508, 2600, 2700, 2880, 2900, 3060, 3 1 00, 32 

66,3380,3466,3568 

910 R<V>=4»V-I-R(V>-C0L0R 7,0 

920 ON R(V) COSUB 2066,2100,2260,2308,24 

60,2580,2600,2788,2800,2908,3680,3100,32 

80,3300,3408,3588 

938 NN=NN*l:G0T0 868 

948 IF NN<3 THEN BDXF(26, B>-(39,24 >* ',8 

■GOTO 996 

950 CLS 

966 FOR XX=1 TO 8 

976 ON R<XX> GOSUB 2886,2100,2208,2388,2 

466,2560,2600,2708,2880,2900,3688,3188,3 

200,3300,3400,3508 

988 NEXT 

996 FLAG=1 

1000 FOR XX=1 TO 8 

1018 IF R(XX>=A(XX> THEN COLOR 7 ELSE CO 

LOR 1=F=F*I 

1028 ON A(XX> GOSUB 2000,2100,2200,2368, 

2480, 2580, 2600, 2700, 2800, 2900, 3868, 3186, 

3268, 3388, 3488, 3588 

1638 NEXT 

1646 FOR X=I TO 3080-HEXT 

1056 CLS 

1060 CLS:PRINT"VOUS AVEZ FAIT";F; 

1878 IF F<2 THEN PRINT-ERREUR"; ELSE PRI 

NT-ERREURS-; 

1888 PRINT" D'ESTIMATION-:PRINT:PRINT:PR 

INT:PRINT:C0L0R 3 

1098 IF F>6 THEN A*=*CAM8RI0LAGE CHEZ HE 

BDOGICIEL Cr' 



ionale a arr3tl I 
litl parisienne. I 

IF F>6 THEN B*=*t 



<in, la 






: per: 



i pro<|raBBes 






1150 FOR Z=l TO LEN (A*) 








1166 Z*=MI[»<A«,Z,I> 








1176 IF Z*="l- THEN PRINT 




:COTO 


1220 


1188 IF ZJ='2* THEN PRINT 




:G0TD 


1228 


1198 IF Z*="3" THEN PRINT 




-GOTO 


1226 


1268 IF Z*=*4* THEN PRINT 




:GOTO 


1228 


1210 PRINT ZS; 








1228 BEEP 








1236 FOR Y=l TO I6:NEXT Y 








1240 NEXT 








1258 PRINT:PRINT:PRINT 








1260 FOR Z=l TO LEK (B*) 








1278 Z«=nlDf (B*,Z, 1> 









1288 IF Z*=*l" THEN PR1N1 'e-;:G0T0 1338 

1298 IF Z*="2" THEN PRINT - e -;:G0TO 1338 

1366 IF Z*="3- THEN PRINT '■•ffGOTO 1338 

1118 IF Z*=-4" THEN PRINT 'a-JtGOTO 1336 

1328 PRINT Z«; 

1338 BEEP 

1346 FDR Y=l TO 10:NEXT 1 

1356 HEXT 

1366 LOCATE 6,23,0:COLOR 6: PRI HT'VDULEZ 

VOUS REJOUER ?* 

1370 Rf=INPUTI(I> 

1386 IF R*="0" THEN 470 

1390 IF Rt=*N* THEN 1410 

1400 GOTO 1370 

1410 CLS:SCREEN 3,6,8-ATTRB 1,1: LOCATE 6 

. 12,8:PRINT"AU REVOIR* : ATTRB 8,8 

1420 COLOR 6:L0CATE 6,23,8:EN0 

2666 REH FRONT [hihu it«it 

£810 RESTORE 5616 

2828 NB-22--C0SUB 4686 

2836 RETURN 

2160 REtl FRONT ;i.i(mtlinimi 

.".lie RESTORE 5626 

2128 NB=22:G0SUB 4806 

2130 RETURN 

2266 REM MENTON I (••*••••■(••••••••••••• 

2218 RESTORE 5636 

2226 NB=9:G0SUB 4086 

2230 RETURN 

2360 REM MENTON 2t dmmmmi *• 

2318 RESTORE 5848 

2320 N0=12:COSUB 4888 

2330 RETURN 

2480 REH CHEVEUX I *•** tt.ti-i i»«.*t 

l.HIIIIIIIIilKltHIIIIOMXIMIHIU 

2410 RESTORE 5656 

2420 HB=13:GOSUB 4060 

2436 RETURN 

2588 REM CHEVEUX 2tMtilitgiliMii)>i>M 

n •» •*••*••• i*i* xtt ****** mm *•••••* 

2510 RESTORE 5860 
2520 NB=27: GOSUB 4808 
2538 RETURN 

2660 REH lEHMMMtl uMllon 

41 1 •«••*(•■*(•(« «««•«•*••• **(•«« ••••(*« 

2610 RESTORE 5678 

2628 NB=9:G0SU8 4888 

2638 NB=8:G0SUB 4008 

2640 NB=10: GOSUB 4808 

2650 RETURN 

2766 REM NEZ2** *« -■*--*<* •*(*'•*« tui ■«■ 

ltf**MIi)***t**tMM-itt**---**>'«**** 

2710 RESTORE 5680 

2720 NB=7: GOSUB 4088 

2738 RETURN 

2868 REM OREILLES 1 *»••• t» •*••-••**••* •■ 

2318 RESTORE 5898 

2828 MB=18:C0SUB 4866 

2838 NB=16:G0SUB 4086 

2848 RETURN 

2960 REH OREILLES EMIIMiiuuiilitUit 

■ IMMIMMHHIMH.I Illlllll 

2910 RESTORE 5166 

2926 NB=6:C0SUB 4808 

2938 HB=6:C05UB 4886 

2948 RETURN 

3688 REM YEUX ltllMKIiMiiixiiiuvxi 

3616 RESTORE 5118 

3626 N8=7: GOSUB 4000 

3638 N0=7:GOSUB 4000 

3848 NB=16:C0SUB 4886 

3858 HB=16=G0SUe 4B88 

3860 RETURN 

3100 REM YEUX 2MM»»«»MM«M»»»MMM» 



3110 RESTORE 5140 
3120 NB=3:G0SUB 4080 
'3138 NB^3:GOSUB 4866 
3146 NB-8: GOSUB 4060 
3150 NB=8:GOSUB 4000 
3160 RETURN 

3288 REM B0UCHE1M*««««««»»«»«»4«*««»«*« 
*•*•«•••«••••••••*•)•■*••••••*•••■••••• 

3218 RESTORE 5150 

3228 NB=7:G0SUB 4886 

3230 RETURN 

3388 REH BOUCHE a*******"**"*******'*** 

(««t*( •••*•*•*••(••*••••••• ••••>••••••• 

3318 RESTORE 5160 

3320 NB=7: GOSUB 4668 

3338 RETURN 

3480 REH CICATRICE********************** 

3416 RESTORE 5170 
3420 N8=0: GOSUB 4000 
3430 HB=B: COSUB 4000 
3440 NB=0:GOSUB 4060 
3450 NB=0:GOSUB 4060 



TO 7 

M05 



3466 N8=8:C0SUB 4060 

3476 RETURN 

3586 REM PA5t>E CICftTPICE* •«■••<•■• 

3516 RETURN 

4808 REM PROGRAMME bl CES jIM************ 

4816 LOCATE 6,0,0 

4626 READ {■,.;■ .■.■■: :■ FLAG"! THEN « = A-160 

:C=C*166 

4630 LIHE(A,B)-(C,D> 

4646 FOP K-l TO NB 

4858 READ A,B:IF FLAG^l THEN A^A'160 

4666 LINE-<A,B> 

4676 NEXT 

4686 RETURN 

5680 REM DATA=C00RD0NMEES DE TOUS LES PO 

INTS A RELIEP POUR LE DESSI H*********** 

5616 DATA 45,168,36.150.30,140,23,120,28 

, 100, 19,90,20,80,23,66,29,46,42,23,50, 18 

,70, 16,88,9,90, 16, 188, 14, l 16,20, 122,30, 1 

34,58,138,78, 140, 108, 136, 120, 128, 146, 122 

,158,112,160 

5628 DATA 45,160,36,150,36,146,23,126,20 

,105, 23, 90, 25, 80, 32, 70, 40, 66, 56, 52,55,58 

,30,43,165,58,112,55,128,63,130.08,135,9 

6. 146. 180. 141. 165. 139. 116. 136. 128. 128. 14 
0,122,158,112,160 

5830 DATA 45,168,50,165,60,174,70,179,75 

, 181,88,180,85, 179,96, 177,168, 171, 187, 16 

5,112,168 

5840 DATA 45,168,56,165,55,172,66,180,64 

,184,76,187,80,186,38,183,88,186,96,188, 

98, 185, 186, 188,165, 170, 112, 166 

5650 DATA 30, 140,31, 101,180, 106, 105, 95, 1 

08,90, 110,08,1 13,82,1 17,72, I 18,88,128,90 

, 120, 100,124,110, 126, 120,128,130, 128, 146 

5668 DATA 30,146,36,105,58,95,74,75,66,9 

6,46,181,68,98,76,93,75,98,38,77,80,98,6 

9,168,88,97,90,95,103,80,98,90,90,182,98 

,99, 110,90, 1 17,72, 1 18, 88, 120,98, 122, 105, 

123,115,122,128,126,128,127,114,129,125, 

128,140 

5070 DATA 75,128,69,143,78,141,63,148,63 

, 142,61,144,68, 150,63, 153,65, 154,68, 152, 

71,148,85,128,91,143,90,141,95,140,98,14 

2, 188, 147,99, 151, 93, 153,90, 152,87, 148,68 

,151,69,149,71,140,76,156,79, 151,81,151, 

83. 150.86.148.88. 147.91. 146.93.158.94.15 
1 

58B0 DATA 70, 120,75, 142, 74, 148, 75, 156, 79 

,153,83,158,84,148,83,142,81,128 

5690 DATA 30,140,22,125,20,122,15,121,12 

,128,9,121,6,125,6,130,10,140,30,150,30, 

160,45,160,128,146,138,125,142,122,147,1 

21,148,120,151,121, 154,125,156, 130, 150,1 

48, 138, 150, 130, 160, 113, 160 

5108 DATA 38,140,15,115,12,112,18,113,9, 

115,33,156,38, 161,44,160,128,140, 143,115 

, 146, 112, 148, 1 13, 149, 1 15, 125, 156, 120, 161 

,113,160 

3110 DATA 46,120,56,187,65,109,70,120,60 

, 120,52,122,58,122,42, 122,40,120, 120,120 

,110, 107,95, 109,90, 120, 100, 120, 100, 122, 1 

10,122,110,122, 120, 126 

5128 DATA 34,111,57,111,58,112,53,112,52 

,1.13,59, 113,60,114,51,114,31,115,60, 115, 

60, 116,51, 116,52, 117,59, 117,58,118,53,11 

8,54,119,57,119 

5130 DATA 104,111,107,111,108,112,103,11 

2,102,113,109,113, 110,114,101,114,101,11 

5, 118,113,110,116,161,116,102,117, 189. I I 

7, 188, 118, 183, 118,184, 1 19, 107, 119 

5140 DATA 40,120,46,114,70,117,70,120,46 

, 120,120,128,114,114,90, 117,90,120, 120,1 

20, 50, 119, 59, 1 1 9, 60, 1 1 8, 49, 1 1 8, 49, 1 1 7, 60 

,117,59,116,49,116,50,115,58,115,106,119 

,109,119,110,118,99,118,99,117,118,117,1 

09,116,99, 116,100, 115, 188, 115 

5158 DATA 37,165,76,160,30,163,84,160,18 

2,163,91,171,69,171,35,165,102,165 

5160 DATA 63,165,76,162,80,164,04,162,97 

,165,91,160,69,168,63,165,97, 165 

5170 DATA 42,135,55,155,46,137,43,139,48 

,141,46, 143,51,145,48, 147,53, 14B, 50, 150 

5188 REH AVP LE 25. 69. 84***M*iM***«*«* 

•••••••■••••a****** ••••••• ••••*•••*•••* 

6808 CLS: SCREEN 7,8,6 

6818 FOR Xft=l TO 2 

6020 FOR ZB=l TO 2 

6030 FOR XC=1 TO 2 

6040 FOR XD=1 TO 2 

6050 FOR :■::■: -l TO 2 

6060 FOR XF=1 TO 2 

6070 FOR y.r, ] TO 2 

60B0 FOR :-:i: i TO 2 

6090 ON XA GOSUB 2668,2100 

6180 ON XB GOSUB 2280,2308 

6118 ON XC GOSUB 2400,2500 

6120 ON XD G0SU8 2600,2708 

6130 ON XE GOSUB 2866,2968 

6140 ON XF GOSUB 3668,3108 

6150 ON XG GOSUB 3266,3388 

6160 ON XH GOSUB 3466,3506 

6170 LOCATE 23,5,0: PRINT'APPUIE SUR*:LOC 

ATE 23,8,0:PRINT'L'NE TOUCHE *l LOCATE 23,1 

1,6:PRINT-P0UR LA SUITE" 

6180 R*=INPUT*(1> 

6190 CLS 

6260 NEXT: NEXT: NEXT: NEXT: NEXT :MEXT:NE>;;: 

NEXT 

6218 END 



Suite de la page 4 



MAZE 



iyi? lh F0->? THEM 1640 


5590 


RETURN 








1920 IF M=-N*THEH>:i=>:-l-GOTOI07e 


5608 






6255 


PPIHT-aS ■ a «r 


1939 IF 0*="$"THEIW1=X*1 GOT0l87e 


3610 


PPlNT-aX-8 


a-w 






1946 IF 0t=-E"THEHVl=V*|:G0T0197l! 


3620 


P-PIHT-aa ■»* 


ar ■- 


6270 


pR!HT-aa w* TO •- 


1950 IF rtl=*0'THEHVl=Y-l 0OTO1676 






6280 


pRiHT-a-Ti aa- 


I?'-'. T-OSUfr 9180 


5646 


ppiin-as II 




6398 


RETURN 


1968 0OTO1646 


9645 






6400 


P0KE214.4-PPINT 


5908 P0KE214.4-FRINT 


5635 






6416 


pRiin-aar-ai a-w 


sale ppuit-ot** -nr 


■>:£-*; 






6428 


pRiNT-aa *a w v 




5670 


PRINT-aa W* 




6430 PRINT"»3) ■"■ W W 


-j??ft ppim-aa ■ a ■■■ 


5680 


PRINT* wm 


T"- 


6440 


PRiNT-aa ta w w 




3798 


RETURN 






PRIHT"aa H a FT 


5845 PRIKT-M ii * II a U * ■" 


5800 


P0KE214.4 PPIH 




6455 


PRiin-aa s»t*j ««• ar 


•5655 pPinT-aa II a»r x-ai a w 


5810 






6465 


PRINT-33 "Ti aas ap 


3B63 ppiin"aa a a ■*■ 


5320 


PRINT'M "*1 




6476 


PRiNT-aa wm *43 w 


5878 PRINT" SS B** a^3 ■■■ 


9830 


ppun-as a 


a- 9" 


6480 


pRiNT-am aT 


•-r^o F-Pii-iT"aF* a^- 


5840 


PRINT~a3 u 




6590 


RETURM 




5645 


ppiNT-aa ii 




fCV.\ 


P0TE214,4 PRIHT 




5835 


PPINT"aS II 




6610 


FP!HT-»!3"-« irr 




3865 


pp un" as « 


3""3 W 


6620 


PRIHT-33 "*■ W w 




5870 


PRIMT* »■ 9% 


a-fl ■" 




PPINT-B3 = • ar 


3230 ppniT-aa t * *■■ 




PR INT- am 


a-" 


6640 


PRINT'S! = IB" 


3246 ppnrr"aa ti a - ** * ■- 


5990 






6645 




5245 iiini'as U a U * »■ 


6880 


P0KE214.4PR1H 




6655 


PRIllT"-3 = ■ ■" 


^«5 PPiHT-aa ii ap^ a-*a ■" 


6OI0 


ppiiii-as-ai 




fS.-CZ 


PRINT'M S ■ 1" 


3265 ppiiiT"aa a ar-a •■■ 








6670 


PRIHT-M W* **3 W 


5270 ppniT-aa »*-a »-s ■- 


6030 


ppniT-aa ■■■ 




6600 


pRiNT'tra ■"«" 


5ZS0 PPIMT-ari a-»- 


6040 


PRIMT" "■ »l 




6798 


RETURN 


3390 RETURN 


6045 






mi 


REM HTTHOiJE CREATURES 


3409 P0KE214,4-PPIHT 


6033 


PRiNT-aa ii 




■.-■M\l< 


[-INT(PNC'l i«24)HZ-F0 


54]H PRlHT*»*NfJ WW 


6065 


RPiriT-aa w* 


aa w 


8020 


IF n-1 THEN Z-EO 


5420 PPIHT-aa ^1 WW 


6070 


ppniT-aa m 


3^3 ■' 


:.:l.--.l 


IF I>^IHEN8846 


5430 PPI»T"B3 ^»1 33 5" 




ppiNT"am 


-fr 


8039 


PETLIPH 


5440 PRINT "US '«* a»ii a •- 


6196 


RETURN 




B040 


IF KZ*3 THEII B»HIT'.RI(U<1)»5> i.-'J FO-J>>S'J 


3443 PP1HT-33 11 3 H a W 


620O 


FOTE214.4 FRIN 






D=INT'Ptl[K3)410) 




6216 


pRiur-aa^f 




Beet 


IFfl«lTHEH0OSUB 9830COTO9I IB 




• .-:■:■< 


PRINT-aa ■-« 




0003 


GOSIJB 9878 




6230 


ppinr-aa ■ 




one 


IFRM-1THEHV0-V0-1 1F0O1THEHO-1 


3480 pRiHT-ar* a-r 


6249 


ppinr-aa ■ 


a -r 


8128 


IFEH=lTHEHV0-'^O-2 1FF|>1THEND-1 



30 IF A-1THEM8170 

40 VI-VI-D 

30 P0KE214.3 PRINT PRINTSFC<34)"-r;VI.-R 

60 G0T08173 

76 EO=EO-D 

73 POrE214.4PRINI PRlHTTflB<34)'rr;VO;*R 

80 P0XE214.3-PPIHT PRINTSPCC34)-*P;F0i "■ 

90 PRIHTTflB<34)-«-;E0;-« " 

8280 PRINTTAB<34)"-r;EX;-R - 

0210 IF VI>6 flHTJ EQ>0 THEN RETURN 

3220 0OSUV9670:Q« 3 >"NOH*:GOTO 18166 

8230 RETURN 

8380 PEM BTTAQUE DU JCJEUR 
8318 IF PL-FP THEN PETUPH 
8320 I-INT<RNDU)*24>*1 
8330 IF 1>SXC8,3>THEN8416 
8340 POKE V*38*B,6 
^;-n oosub 9330 

8360 POKE V*33*R,SX(R.4> 
8466 RETURN 
8416 D»IlfI(P>roa>*5)*I 
8420 IF PL=1 THEN 8500 

3449 IF ft=3 OR R»4 THEI(D=0 

3450 GOTO 9516 

3300 IF A=l OR A*5 THE" P-0 

8310 Vl-Vl-D 

8530 POKE V*38*A.7 

8546 IFPL-ITHENOOSUB 9900 

8543 IFFP-1THENOOSUB 9948 

f;VMi pr*E 1 ,"3ntfl.5./:<A.4> 

8370 1 FVK-0THEHC-O3UB9621.' P0KtV>2l ,8 : CC"0 

GOSUB870O EX-EX*5 GUbUBBl50 Ktnani 

w-.srtj MSOWQCQ 

6590 RETURN 

8780 REM NETTOVR06 CARftCTERISTIOJES 

Fi?lB POKE 214.15 PR1HI 

8720 PRlNTTfiB(I7)- "PRINT 

8730 PRINTTHB<17>- ■: PRINT 

8740 PRIHTTABCI7)- " PP11IT 



8750 PRIMTTABU7)" 

8760 PRINTTftBd?)- "; 

■ 8770 RETURN 
3980 RETURN 
9000 REH BLFtCHISSHOE 

. 9016 PRINT**" :POKE214,Z-PRINT 

■ 9028 FOR I-1T03 
9030 PRIHT- 
9040 NEXT 
9030 RETURN 

9060 REM CAR0CTERISTIOUES RESIDENT 
9670 POKE214.17-PRINT"-.- 
9080 PKINTTHB<18>'Vr *;Vli"l " PRINT 
9090 PRINTTP,B<18>"F0 ". 5^(0.3) -PRIHT 
1692 PP1NTTHB' 17>-RTt -;S1*<0. 1 > 
9094 PRINTT0B<17)-F«f1 I -.S2*<n.l)i 
9096 RETUPK 

9100 REM TEST DEFENSES 1 8RMES 
9105 IF VO<-0 THEN BM-8An-0 COTO9170 
9110 IF QtO-W THEN9I40 
9120 IF BM-irHENBfl-0 MTC9240 
9130 BM- 1 : 0OTO9248 
9140 IFOf<>-fTTHEN9l70 
9156 IFflM-lTHENAH-0-POTO924lJ 
9168 RH-1 G0T09240 
1170 IF"«O*lt-THEN9280 
9186 IFPL-1THENPL-0 00T09248 
9190 FP-0 PL-1 00T09248 
9286 1F0*<>"ITTNEN RETURN 
■»210 IFFP-1THENFP-0 G0TO9248 

9220 PL-0 FF-1 

9240 POKE214.17PRIHT 

1238 IFBM-lTtie>#nNTTAB<35>"-Dur GOT09270 

'.,rn F-'PIlirrflP<33'"-*)0N- 

9270 IFflH-lTtCNPRIHTTAB(33)"IWJl' OOTO9290 

■V'WI PPIHTTni<f)5>*IH0N" 

'V«l IF F1_-lTHEf»=R[NTr8B'35)-*tHJ[" PRUU lOB'T'-. '--«"'N" FE 1MKH 

■-.-,m if FP-nn6Nf-'PJHimB<-35)-«HC»l" IKMil llil!'.'.' -U'lJI ■ 1-1 rut.n 

«310 PRINTT8B03J""M3N- PO1NTTBB<33>-0NON" 

Suite page 6 




PUZZLE 



II faut en un minimum de temps, reconstituer le dessin 
de Pac Man et son ami ou ennemi, le fantome. 

Eric LAPOUYADE 

Mode d'emploi: 

Deplacez le pave noir a t'aide des quatre fleches. Choisissez le bloc 
graphique a I'aide de la louche ESPACE . placez !e a Tendroit choisi 
et appuyez de nouveau sur ESPACE. 




CANON 
%07 



SOLUTION 






DELHIPPOREBUS: 


1 : 


FOR 1 ■ 1 


TC 


1 1 




READ X 






30 


PRINT CHRt 


<X> ; 


40 


NEXT I 






50 


END 






;.f, 


DATA 82 


69 


77, 




SO , 74 , 73 


83 


83, 




45,71 ,&y 







'757,0,75 
*2S?, 0,25 



O, 178,6-1", -257,0,2 
0,16,36', *?3?,0,: 
174, 17S,0*. •232,0, 
0,0,0", *?57, 0,752, 
0,0,0-, '757,4,75?, 



'• ' LAFOUYADF ERIC 
1 - »>>PtI771 f;;--. 
7" m » CANON X-07 * 

3 ct FAR365 

6 kTY*(AI = - 

io r.i -. 

70 T>ATA"23?, 178,757,0,0,0,0 

2,0, 17,0,0,757' 

30 PATA-757,0, 757,0,774,0,0 

2,0,0, 124, 178,0" 

40 PATA" 757,0, 757,0,0, 757,0,0", "757,0,25 

7,0,0,737,0,0* 

50 PATA'?57,0, 757,0,0 

57,0,0,0,0,4* 

60 PATA"?5?, 0,757,0,0 

7,0,0,44, 132,8" 

TO DATA*?57, 0,757,0,0 

752,0,0, 192,48,8* 

RO nATA-757, 0,757,0,0 

0,0,0,0,0" 

90 nATA"?57, 0,757,0,0, 

0,0,0,0,0" 

J 00 PATA' 0,O,0, I 74, 0,0, 4,0', "0,0,0, 178, ( 

, 0,740,0" 

I 10 PAT A "9, 16,37,64,64,64,64,64*, *0,248 

134, 134, 184, 184,748,0" 

17f> PAT A *0,0, 0,0, 68, 68, 68, 68*, * 0,60, 32,: 

7,44,44,60,0* 

130 PATA "37, 144, 136, 1 37, 1 37, J 37, 137, 4* , 

8,0,0,0,0,0,4,4* 

140 PATA -77, 0,0, 0,0,36,36,36-, -49,37,64 

178, 178,0,0,0* 

150 PATA-0,4,4,4,0,0,0,4*, '778, 16, 117,1 

2,736,48,64, 178" 

160 DATA* 178, 178,64, 178,0,0,0,0*, '0,0,0 

0,0,0,0,4- 

170 DATA* 0,O, 0,0,0, 1 1 ?_, 748, 252* , *0,0,0,i 

,0,0,0,0* 

180 PATA "0,0, 0,60, 0,0, 0,0- , "O, O, O, 128, O 

O, 124,0* 

1°0 PAT A *64,64, 64,64,64,64, 64,68*. "O, 

78,48,40, 16,0,240" 

7O0 PAT A* 68,0, 178,68,40, 16,0, 124", - 

78,68,40, 16,0,28* 

710 PATA* 4, 4, 137,4,4,4,4, 196*, *36,36 

,0,0,0,0* 

770 PATA- 36, 36, 36,36,0,0,0,0*, "0,0,0 



178,< 



,32* 



■37, 178,64 



?30 PATA-8, 4,0,0,0,0,0,0 

8,4,0,0* 

740 PATA'136, 0,0, 0,0, 178,64, 179 

,0,0,0,0,0* 

7S0 PATA-704,704,748, 1 17,0,0,0,0*, *37,0, 

0,0,0,0,0,0- 

255 PATA'O, 174,0,0,0,757, 178,757* 

740 DATA "0,740, 0,0,0,752, 0,757", '68,68,4 

8, 174,0,757, 0,757" 

770 PATA- 16, 16, 16,78,0,757,0,75?*, "69, 68 

,48, 196,0,757,0,2*52* 

?f»0 PATA* 16, 16, 16, 740,0,257,0,757-, "68,6 

8,68, 174,0,752,0,252' 

290 DATA'S , 4, 0,0, 0,252, 0,252*. "72,36, 16, 

0,0,757,0, 752" 

300 PATA "48,9, 137,64,0,757,0,757*. "0,0, 1 

78, 124,0, 757,0,752" 

310 PATA -4, 8, 48, 1 92, 0, 257, O, 252" , '128,0, 



0,0,0,752,0,252* 

370 PATA'O, 0,0,0,0, 752, 0,257", '0,0,0,0,0 

, 752, 0,732* 

330 PATA'O, 0,0,0,0, 757, 4,25?" 

410 CI.'!:RFST0RE420 

470 PATA 31,31,31,31,31,31,31,31,31,14,1 

1, 10,9,8.7,4,5,5 

430 PATA 4,4,3,3,3,3,3,3,3,4,4,5,5,6,7,9 

,31, 18, 17, 16, IS, IO 

440 DATA 10, V, 9, B, 8, 7, 7, 7, 8, 9, IO, 12,10,1 

0,9,9,8,8,7,7,7,8,9 



S0O:NEXT 

820 CLS:REST0RE830 

930 DATA*0, 0,0, 0,0,0,0,0 



450 PATA 9,8,8,7,7,7 


8, 


7.31,3 


,15,17, IO, 


9,8,7,7,7,7,7,7,7,7 










460 DATA 8,8,9,10,11 


31 


10,10 


9,9,8 


8,7, 


7,7,8,9,9,9,9,7,7,7 










470 PATA 8,9,31,31,31,3 


,31 ,3 


,31 ,3 


,31 


480 DATA 31,31,31,31 


31 


31,31 


31,31 


20,2 


7, 73, 74 , 74, 73, 75, 75 










490 DATA 76,26,76,26 


26 


26,26 


26,26 


26,2 


6,76,75,75,74 




















6 , 74 , 76, 75 , 24 , 24 , 26 




















6,76, 17 










520 PATA 11,11, 17,76 


76 


?6,26 


76,76 


26,3 


530 DAT A70, 27, 73, 74, 25, 25, 76, 26, 26, 26, 26 


,26,74,25,23,24,22,2 










540 DATA 17, 17,17,1? 


?6 


76,26 


74,76 


17, 1 


1 , 1 t, 12,76,26,26,26 










550 PATA 74,76,26,31 

1,31 

560 PATA? 1 ,7, 79,7,70 


31 


31,31 


31 ,31 


31,3 


8,31 ,8, 19,9,30 


9, 18 


, 10,79, 10, 18, 1 1,29, 1 




















7, 14, 17, 15,33, 15 










580 PATA 17, 16,33,16 


17 


17,33 


17, 19 


18,3 


7, 19 










590 DATA 19, 19,32, 19 


?0 


70, 30 


70,71 


71 ,7 












600 DATA 37,11,34,11 


31 


17,34 


17,30 


13,3 


4, 13,28, 14,34, 14 










610 DATA 4?, 17,44, 17 


41 


18,46 


18,41 


19,4 


7, 19,40 




















2,42,73,45,73 










630 DATA 39,17,44,17 


39 


13,44 


13,39 


14,4 


4, 14,44, 15,45, 15,45, 


6,45, 16 






640 DATA 53,73,33,12 

1 , 17 

650 DATA 78,11,87,77 


52 


70,57 


17,51 


16,5 


79 


11 ,83 


72,80 


11 ,8 


4,72,81 , 1 1,85,22 










660 DATA 82,11,86,72 


83 


11,87 


77 




700 FOR 1-0 TO I 19 










710 RFAD A 










720 LINEtl.Ol-'t.A] 











730 NEXT 

740 FOR 

750 RFAD 

760 LINE 

770 NEXT 



773 I 



780 RFAD 

790 LINE 

POO FORI 

805 BFFP 

910 LOCA- 



83? 0ATA*?37, 44,32, 32,32,37, 37, 37* 

8, 196,36, 16, 16, 16,36* 

834 DATA-28,8,8,8, 136, 

,64,64,64,64,64,64* 

836 DATA '778,68,69, 68 

37,64, 128,0,4,4,8" 

838 DATA"757,36,77,72 

36,40,48,37.0,0,0* 

840 DATA-757,4,8,9, 16 

64,64, 129,0,0,0* 

847 DATA*248, 144, 144, 



2,4,4,4,4,4 
240, 
136, 136,8*, *224,64 
68,64,64,64", "252 
144,37,32,64*, *60 
36,36,7?*, *77B,32 



844 DATA* 124, 36,36, 3, 

36,20, 12,4,32,96, 160 

846 DATA'O, 0,0, 0,0,0 

, 12* 

848 DATA-37, 44,60,32 

8,240,0,0,0,0,0* 

850 PATA'8,8, 8,8,9,8 

64,64,64,757" 

857 nATA-64,64,64,64, 
6,36,72, 144, 144,32,752 
854 PATA-178, O,0,4 
8, 16, 16,36,60" 
856 PATA"144,37,32 
0,0,37,96, 160,32,728 

858 PATA'144, 144, 144 
',"0,0,0,8,74,40,72,24: 
860 PATA'36, 36, 36,36, 
96,32,4, 12,70,36,232' 
970 F0RI=l?8TO159:READA*:F0NT* 



.,36,36,36,36", "752 

0,0*, *4,4,4,4,4,4,' 

37, 37, 37, 740', '196 

8,79', '64,64,64,64 

64,64,68,778", "16,: 

20, 36, 257', '0,4,4 

178, 128,4,252*, *0 

44, 144, 144, 144,252 

36, 124*, * 160, 

)=A*:NEX 



XX.YY.X, Y 
X, Yl -(XX.YY1 
1TP333INEXT 
, 1 
FI2,0:PRINT"| 



">0O g 

999 RESTORE 

1000 F0RI=178TOI59:RFADAS:F0NTS(I)=A«:NE 

1010 FORI=774TO?55:RFABA*:F0NTStI)=AS:NE 

7000 FORI=0TO31 {LINE (O, 1 1— (11, I) :L*NE(10 

8, II - ( 1 19, I> :nf_xt 

7005 FORI=IT0700:NEXT 

2010 RESTOREZOZO 

7070 DATAI7B, 143, 144, 159,774,739,740,755 

2030 FORI =0T03:READX,Y: LOG ATE7, i:forj=xt 

oy:printchr*i J) i :nextj, i 

3O0O I F I NKE Y*= " * THEN3000 

3010 AS="il 5'»git de reconst 1 luer 1* pu 



3070 AS=A»*" e 

3030 AS=A**"lo 

3040 LINECO, 15 

,74) 

3050 LQCATEO,?:PRINT 

-■1 

3060 A»=* **A*** 

3070 FORI=1TOLEN(A»: 

CATE5,7:PRINTC* 

3077 BEFPI,2:NEXT 

3075 A*=**-C«='* 

3080 FORI=17RTO!59: A 

3090 F0RI-724T0253: 

3100 F=RNP(0) 



3103 FONT*! 1591 -* 755, 735, 733, 733, 735,753 
,735,253* 

3105 GOSUBBOOO 

3110 F0RI-1T064 

3170 E-INT<RND(D)#LENCAS>1 *1 

3130 CS-CS*HID*(A*,£, I > 

3140 IFF=ITHENA*«RIC-HT*(AS,LEN(A») -1) :GO 

T03700 

3150 IFF-LFN<A*)THENAS-LEFTSIA*,LEN(A*)- 

1 1 :G0T03700 

3160 A*=1_FFTS<AS,E-1 I *RIGHTSI AS, LEN (ASI - 

El 

3700 NEXT 

3710 C*IO)=MID*(C* f 1, 16) :C*t I )-MID*lC*,l 

7, 161 

3770 C*t7l-WIDS{CS,33, 16) : CS< 31 -MI D* ICS, 

49, 16) 

3730 E0RI=0TO3:L0CATE7, UPRINTCSCI 1 t :NEX 

T 

4000 AS-CHR*(I59) : E-INSTR <G«, AS) 

4010 Y-INTI CE-1 1 M6I 

4070 X-i*E-<Y»16) 

4077 S-32:7.S-** 

4079 times=*oo:oo:oo* 

4o30 7_s«=inkeys: if2*= " then4030 

4037 7=ASC(ZS) 

4034 IF7<; >78ANDZ< >?9ANDZ( >30ANDZ< >31ANDZ 

< >32ANDZ< > 1 1ANDZX >33THEN4030 

4041 IF7=37THFN60O0 

4050 IFZS=- ! 'THEN4170 

4051 IF7-! ITHEN?=30:ZS-CHR*(30) : AS" TIME* 
:PR=t: SLEEP 

4057 IFPRTHFI 
4055 DX=(Z=7' 

4060 ifx*dx-10rx+ox-1bory*dy=-iory*dv=4t 

hendx=o:dy-o:pp-i 

4070 x-x*dx:y=y*dy 

407s ifppthenpp-0:got04090 

4080 f»fcrffn<x, y) 

4090 locatex, y:printchrs( 1591 ; jlocatex-d 
x, y-dy:printchrs!s) 1 

4095 S-E 

4100 GOT04030 

4170 FORI=lT05:FORJ^lT04BSrEP4.7:BEEPJ, 1 

I NEXT 

4175 FORJ=48T01STFP-4. 7: BEEP J , 1 * NEXT J, I 

4180 cls:prinT:PRINT" t»»p-. : -;TImes:e 

ND 

6000 ifps-0THENXX"X:yy-y:q-s:s-159:ps-i: 

g0to4030elseps=o:g0t070oo 

7000 locatexx, yy:printcmr*<si t :S-Q:G0TO4 

030 

8O00 locateo,o:fori=oto?:print-++ 
4-f-i :next 

800! PRINT*+4 +"i 

8007 FORI"114T0119:L1NE(I,24)-(I,31):NEX 

T 

8010 L0CATF2,0:PRINT" Force: "ILOCATE 

2,2:PRINT"0) MO YEN' 

9070 L0CATF?,3:PRINT" II DIFFICILE* I 

8030 ZS-INKEYS: IF2*= " ' THEN8030 

8040 IF7*< >"0'ANDZS< >'l " THEN8030ELSFD-VA 

L 1ZS) :RETURN 

9000 B-178 

9010 EORI=1TO?:FORJ»?T017: B-B*l 

90 15 IFB°160THEN9030 

9070 LOCATE J, I : PRINTCMR* ( B) } ! NEXT J, 1 

9030 F0RI-IT0750:NEXT:RETURN ■ 



Suite de la page 5 



MAZE 




■ ■ .1 CI N.ikN 
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JEU DE DES 



Le Yams est un jeu de des, ou hasard et strategie se Lancemeni du programme: 

combinent equitablement pour rendre la partie tOUJOurs " suffit de taper < run > et ensuite. de selectionner le nombre de 

captivante. Le programme offre la possibility de qerer $ ueu J* lola } et ,e n ° mbfe * l"£2 simuies par l'ordinateur. Le jei 

;■■«., ,-a on \r.. S J *_ i. •_ . i-\ i ■ des des est aulomatique et la selection des des se !ait en tapan! la 

jusqu a 20 joueurs simultanement. De plus, parmi ces louch e < o > ou < n >, suivant que ion veuflto ou non conserver 

20 joueurs. I'ordinateur peut en simuler de 1 a 20. le de designe. De meme la selection du contrat se (ait en tapant les 
Done, pas de problemes, si les joueurs sont fatigues. 
L'ordinateur pourra jouer tout seul. 



TRS80 



I1W.1IIH ■ itiw.ioiit.intt.iwtt. ie**f . iMtt-ta; 



touches < o > ou < n >suivant ce qu'on desire. 

En (in de partie. l'ordinateur alfiche les resultats el donne les classe- 

ments. Les regies sont identiques a celles du jeu de Yams. 
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304B FOP 11-8 TO LH-l-tVlHnPF*ll,'t'fl€XT II 
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3270 RETURN 
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6019 IF Y(IY,I,J>— 1 THEN 6026 ELSE I— < I05)«I*1 ) J-CX I-6»' J— J«J<2>'«IT0 

6618 
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6698 YV-6'IF J-l THEN 6138 
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6118 NEXT II 
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6156 COSUB 6588 „_ 
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6218 RETURN 

6539 PfJI 

6318 IF J=0 THEN f5W 

6320 IF 1-8 THEN fi=3 GOSUB 6600 

6533 IF !-4 THEN fl-4 ! GOSUB 6666 

6546 IF 1-5 THEN R-5'COSUB 6680 

6536 IF 1=3 THEN GOSUB 6780 

6368 IF I=! THEN P-6^G0SUB 6666 

6570 IF 1-2 THEN fi-I' GOSUB 6689 

6588 RETURN 

6680 FOR 1 1-8 TO 4 

66IB 2-1 Z2-5 23-624-6 

6628 FOR 12-11*1 TO 4 

6630 IF [XM>-rXI2> THEN Z-Z*1'21-WI1> ELSE IF 22-6 THEN 22-tX12> ELSE IF 23-6 

THEN 2>IXI2> aSE IF 24-6 THEN 24-K I2> 

6648 NEXT 12 

6650 !F 2-H T-ei 11-4 

5668 NEXT II 

6679 IF KP, THEN rf-8 
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66BB REUW 
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6720 NEXT II 
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6740 FOR 11-0 TO 4 

6736 IF D<M>-21 THEN 23-23*1 

6766 IF D<I1>-Z2 THEN 24-24*1 

6779 NEXT II 

67S9 IF 23*Z4<>3 OR 23-1 OR 24-1 THEN YY-9 aSE IF 23<24 THEH 2-21'21-22 

22-2 

6799 RETURN 

6880 FOR 11-8 TO 4*IF CXI1WM THEN YY-8 

6019 NEXT II 

6828 FOR II-3 TO STEP- 1 -FOR 12-6 TO II 

6930 IF KI2MKI1+1) THEH YY-6 

6646 NEXT 12.11 

6856 RETURN 

7668 as 

7016 FOR Il-B TO N-i'Kl*!I!>-t*KM><NEXT II 

7029 IF N-I THEH 7633 

7023 PRIMT'UN INSTRKT, JE CHERCHE LE VRIMQUEUR. . .' 

7638 FOR 11-6 TO N-2'FOR I2-I1+1 TO N-l 

7649 IF V(I1,7,1XY! 12,7,1) THEN GMRKU>'H1«11>M1KI2>< 

G-YCI1.7,1>Y(I1,7,1)-VCI2,7,I>'V(I2,7,1>-: 

7858 NEXT 12,11 

7933 FOR 12-66 TO 40 STEP-1 ■ P0KE32763 . 43 ■ BRHJSIK I2)'NEXT 12 

7937 as 

7068 PRIHTt24,-afiSSEn£NT FlNflL"! 'PRINTt8e,STHlNW< 16,"S*>J 
7078 FOR 11-6 TO H-l 

7986 IF IK 18 THEN PO-193+M164-K Il-9> ELSE P0-224H M-16)»S4 
7099 C«-STR«CII*l>*-> **Hlt(Il>*STRINC»(I7-LENCNl»(Il)),-.-)* 



16656 RETUW 

10186 21-1I 

1B110 FOR 11-0 T 4 P0-«33*IItl4 

10120 IF [-MX>21 THEH EC 1 1 >— l'D-0*I PRlNKfO.2*! WSUB 6866 

10136 NEXT II 

18140 R£T>.FN 

ie??(i p.? ry»] Goa« 66ee 

18210 IF w-1 THEH 18328 

1822? =-2 V.-l GOSUB 6688 

18238 IF iv-i THEN 18268 

18240 21-4 

18258 FOR II-O TO 4 IF ^11>*5 THEN 21-3 It-4 

10266 NEXT M 

[0273 WTO 16313 

10290 IF 22-7/? RMD 22>2I BHTJ 'Y( lv.22.e>— I C « IT, 0.1 — : THEN r:-:: 

10290 IF 23-24 ft>c 23>2I f*t- '.•<: !Y.7.3.0>— I W X It 6.1 H-l J THEN 71-23 

:e?60 IF 22-74 fr© 22>21 ftNO (V(1Y.22,0>— 1 OR v'1'9 : —1 ~rf. 2'.'7: 

18316 VI-21 OOBVB 18108 

18320 FETJRH 

10486 FOB 11-8 TO 4 Ztll>-IMXI-9>'NEXT II 

10410 FOB 11-6 TO 4 P0-93>M*14 21-6 

10426 FOR 12-6 to 4 ir « II >«2t!2> THEN ZJM*8I2X 12-4 

18438 >4EXT 12 

10448 IF 21-0 -rEN £<I1>— 10-[>*l-PRINT6Pf).7». r.T=3*i oiw 

10450 HEXT II 

10468 RETUPN 

10588 YY-I G0?i.B 6708 

18518 IF W 1 THEN 10638 

IC523 ■— : P-3 GOSUB 6660 

10338 IF YY-l THEN 16648 

10348 YY-l R-2' COSUB 5400 

16338 IF YY-9 THEN 21-6 GOTO 10(40 

18560 IF Z2023 RND 22024 RWO H30Z4 THEN 10640 
"' 10578 IF 22-23 THEN 21-Z4 
rvM 1B386 IF 22-24 THEH 21-23 
5600 IB390 IF 23-24 THEN 21-22 

1660G FOR Il-B TO 4 PC*333*I1«14 

10616 IF EX1I J-Zl THEN E< Il>— 1 'D-O-l PRINTrPQ.2*. K^ 7 -* WW 

18628 NEXT It 

19630 GOTO 18658 

10648 XI-21 COSUB 18138 

18658 RETURN 

10780 YY-lft-4. COSUB 6606 

10710 IF YY-l THEN 10748 

10728 YY-l'R-3' COSUB 6688 

10738 IF YY-I THEN XI-21 GOSUB iei68 ELSE COSUB 16200 
_. , 18748 RETURN 
IY ' 6 18866 YY-lfl-5' COSUB 6668 

,v ' 6, leeie if yy-i then ioemo 

16626 YY-I ft-4. GOSUB 6660 

16636 IF YY-l THEH XI-21'COSUB 18169 ELSE COSUB 19799 

18848 RETURN 

28890 YY-l -B-3. GOSUB 6668 

20010 IF YY-9 THEN YY-l -R-4- GOSUB 6603 

28020 IF YY-6 THEN YY-l R-7'COSUB 67B9 

20638 IF Y-<-8 THEN YY-l'R-3'COSUB 6698 

29648 IF YY-6 THEN YY- 1 • fl-2 ■ GCSUB 6680 

28836 IF YY-8 THEN YY-l R-l 'GOSUB 6-860 

20860 IF YY-9 THEN YY-l 'ft-6' GOSUB £868 

28878 IF YY-6 THEN B " 

20660 IF RT-1 THEN 3 



ON R COSUB 24088,21888,21086,21086.21680.23000.26999-24800 
20190 RETURN 

26999 IF VC1Y.3.1)— 1 THEN XI-9'GOSUB 18806 GOTO 21160 

21986 IF Y(1Y.5,1>— 1 PHD <R<>2 OR IX-11 > THEN XI-11 'GOSUB 19888 'COT021 108 
21310 IF YfIY.4,1)— 1 THEN Xi-10'GGSUB 19086'GOTO 21100 
21020 IF VtIY,3,I>— 1 THEN Xi-3'GOSUB 10000 GOTO 21100 
21039 IF Y'.1Y,Z1,0>— 1 THEH XI-21'GOSUB lOOOO'COTO 21166 
S1048 IF Y(1Y,0.D— 1 THEN XI-6'COSUB 16860 GOTO 21106 
21058 IF B-7 «« Y(IY,22.0!— 1 THEN X1-22G0SUB I980O GOTO 21188 
::cc? :■ w>2 then 21094 

::^7^ X3-6 IF 22-23 OR 22-24 THEN Xt-22 ELSE IF 23-2* TkC" XI-23 
21880 IF XIOC f'S' vai',xl.-8>— 1 THEN GOSUB 10000'GOTO 21100 
-;j'.-. If «IY,Z,1>— I then KI^'COSUB ie800GOTO 21180 
-ir^v :■ v'li.i. :•'-! thhn xi-7 cms ikoo wto 21100 

""3R7 'F Z2'6 •-=■■■ !F '^;v,22.0>— 1 THEN XI -22 GCr.T ic.W CC'TO 21100 

2IO«3 IF 23<6 T"£^ I" ■i!1Y.23.C>-! THEN «I»23 COS LB 16C80-G0T0 21103 

2I0S? IF 24(6 THEN IF Y<IV,24.0>— I THEN XI-Z4 •GOSUB 18OO0 COTO 21L60 

21090 XI-6 GOSJJB I0IP8 

21106 RETijRH 

Z39BB 'F Y( !¥.:,!;— 1 THEN Xl-7 GOSUB 16808 GOTO 24839 

24006 IF YUY.2,1>— 1 THEN XI-9'GOSUB 166680010 24838 

24818 IFYUY,1,1>— 1 THEN XI -7 'G03UB 18800 GOTO 24838 



m\ 



S-IF 



(lY.M.et— 1 THEN XI-Il'Il-3 



"703 . 



1,7,1: 



■ PT8" 



>'HEXT 12 



4 PPINT?933*Iltl4,DE»;'NEXT II 



i WW* 



3 IF 12-2 THEN 3278 
3013 D-0'PP-704'TP-4'LG-26*LEN<N«IY».RT-8 
3615 IF NS-0 OR W-N-H3-1 THEN 3028 ELSE 3833 
5629 PRINTtPP.NWIY),-, CHOISISSEZ VOS OES <O.N>!'i 'Ht-IMKEY* 
3023 GOTO 5868 

3833 PRINTJPP.-ICI -,N»(1V);-' JE CHOISIS flES DES! - . 
5648 IF irt»--0- THEN GOSUB 16880 ELSE COSUB 26689 
3033 GOTO 3128 
3860 FOR Il-B TO 4 
3370 P0-833*tl!H 

5888 PfllNTJPO,C*«i >WHWM*VM« U »■ 'COSUB 8866 
5898 P»-IH<EYI'IF R«>"0- RND R«<)'H" THEH PRINT1P0.21, ■ 
COTO 5866 

5190 IF Pf-N- THEN PBINTW0.2*! ■£( II >-l 'D-D*l 
51 IB NEXT II 
5129 GC3UE 5288 
5136 FOR Il-fl TO 1 
5148 FOR 12-0 TO 4 
515B PBINTJ833*I2*M.&E»' PRINT6834* 12*14. V«K I2))j 



7108 PRIHTIRO,C«i 

7163 FOR 12-6 TO 5'P0KE32763,43.BR-USr«36*Il 1 

7118 NEXT II 

7128 PRINTS960.-UNE FVTRE PRRTIE T'i 'COSUB 8160 

713* IF RtO'O- RHD MO'N" THEN 7126 ELSE DM* 

7146 IF P»--H" THEN 7246 

7143 aS'GOTO 7166 mwi „ 

7158 aS'PRINT-'vOULE2-V0US UN flOOC X JEU lnP0SE(0,N)7-i 'COSUB 

>-0" RHO R»<>'N- THEN 7138 ELSE aS 

7168 INPUT-NWBRE DE JOUEURS "jH'IF WI OR NW THEN OS'G0T07166 

7176 aS'PRINT-PR>WI CES JOUEURS, COHBIEN OOtS-JE EN SINULER '•' 

HS<8 OR NS>H THEN 7178 ELSE aS 
7166 FOR 11-8 TO H-l 
71<>0 IF I1H4-NS-1 THEN HtCl>'W 
7288 PRlHT'NOn DO JOUEUR HUMERQ " 
7218 NKI1>L£FT«N6(M>.16) 
7226 FOR 12-9 TO 7'FOR 13-8 TO 1 'Y( II, 12.13)- 
7238 REXT 13. 12.11 
7248 RETURN 
9880 BET1 

8616 FOR 1F-8 TO TP'NEXT IP 
8828 RETURN 
8186 REM 

8118 R6-INKEY6-IF R*-" THEN 8MB 
0128 RETUPN 
6268 BErl 

8218 FOB IE-8 TO LG'PRINT»PP*lE,fll»J'HEXT IE 
0220 RETURN 

leeee if iiw-o- then xi-ix'TP-i99.gosub 000a 

18818 TP-19 
10628 K-XI»1 



24012 FOP 11-0 T 
24014 NEXT II 

24016 if xi-6 t---- cc-'.'S !^:ro ',:'<] 24.?:? 

2-:C20 -,T:'.? 10002 
-, 0:c ;- T; ;.i 

19900 >1 ON ft CO?.? 37808, 34960, ?4CW,j2eW. "1083. 3S633." 

30010 RET.iRN 

31000 1-5 : r >-•■. I. J>-1 T-W 3739? 

32807 l=a. ]F Y<IY,I,J>— 1 THEN 37999 

33080 1-3' IF Y(IY,I,J>— 1 RHD R04 fHEM ?733? 

-■=016 IF p^.4 3= S-5 YHEN I c i<IY,21,0>— 1 THEN I-Zl J-BGOTp 3799? 

^.j;pr >g ;r -/i-.i.j-.-i rhd r-8)*W:>C-;-r-:-:-['''i . ; ,i 7~r: :. 7 ;.y? 

349i« i^:: >9'i» '-'^i,;.j--i then 37999 

^4S20 1=9 J-l ■ IF KI1M.JK-J THEN 37999 

34330 IF 3=3 OB 0-4 OR fi-3 THEd 7C003 

34900 [F f= _ RM6 22« THEN 33W0 

?4?0: IF (K« ^HEH 34939 

34902 IF J|<3 fl* .<1Y,21.0>— 1 THEN 35000 

34983 25-1 GOSUB 33330 

34904 IF 25(>-: THE:' IF 25;2 THEN IF 'i 

-_-,„,, 3430? 1*0 -'-0 IF i'.rt,ltJ>—l THEN 37999 

STRKYd ■ 34318 1-1 J-l -IF YCIY,I,J>— 1 THEN 37??? 

34920 I-2IF KIY.I.JJ— 1 THEN ?7?79 

33OC0 25-: 



M1KI2)-W' 



..25,0>- 1 THEN 35000 



-l-< 12-6 W 12-7) 



TOM I- P-7 THEN 25-22 26-22 GOTO 33070 

75023 GOS'JB 33039 'GOTO 33668 

33038 IF 22-23 T*rs 25-22 26-24 

:3040 IF 22-24 THES 2I-2226-Z3 

"^050 IF 27*2* VEN 25-2326-22 

33055 return 
B180'IF ftt< j-«0 IF 25-1 THEH 33128 

35070 IF 21>23 THEN 2-21 Zl-ZJ 2!*2 

f0?O '-2'. J-«! c ■'<!¥,», J)— 1 THEN 37939 
INPUT HS'IF --^o -.'ZZ I r v;lY.I.J>— 1 THEN 37?9? 

33100 I-2S IF t'CIY.I.J)— 1 "HEN 37399 

35110 CC'C 35COC 

33120 I-21 J'C I" ■::■. !."-: ThCN-37999 

33130 r >3 THEH 36630 

35140 IF ft-4 THEN 2>8-;4-0 

33150 IF B-3 THEN 24-0 

33163 IP Zl->~- --T- Z'"ZZ'ZT "«: 

. r ,7n -r 2' ■;■< ■■^■■J Z-Z: Z~-Z< 24-2 GOTO *5H 

'■';-.-> '«ZZ I- rtlY.I.J)— 1 THEN J79» 

33190 1-23 :•' •::-■-: '-:• vm 
■32ix: :-2-" " ■'-'■■ i ■.'.-: ""Ew :t9?? 

'6GCC I'l ■>: IF vtli-.t.J)— 1 THEN 37JM 
37060 1-2J-1 :" iiir i ■-■:■- : "-:• '.':■:-:■ 
3701G :■-: '■'■' .. --: -■■-■ -"■■: 

- ■ -(i ■ :: ■' --t THEN X t-11 . 

■ MEX* II 
17948 ; c J-e n«N ■"•x 
-rr-.T — 7i- - : - mr.u.j) -:■ Ml ->* 




HEBDOGICIEL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENTIEL DE 340 FRANCS POUR 52 NUMEROS AU LIEU DE 
52 x 8 00 = 416 FRANCS. ABONNEMENT POUR 6 MOIS : 180 FRANCS. 



NOM: 
PRENOM : 
ADRESSE : 
REGLEMENT JOINT: 



MATERIEL UTILISE : 
CONSOLE : 
PERIPHERIQUES : 



□ CHEQUE 



nccp 



FONCTIONS 



Vous avez toujours pens6 que votre Apple n'etait qu'un 
residu a cdte du merveilleux IBM, en ce qui concerne 
les touches de fonctions. Detrompez-vous, le jour de 
gloire est arrive, ne jetez pas voire Apple, IBM n'a qu'a 
bien se tenir. 

Xavier LEROY 

Mode d'emploi:si vous possedez I'assembleur LISA, vous pouvez 

taper le listing 1 sinon procedez comme ceci avec le listing 1: 

Tapez CALL-151 < RETURN >, vous vous trouvez alors dans le 

moniteur de I'Apple. Tapez alors le listing comme suit: 

9200:A9 OF 85 38 A9 92 85 39 < RETURN > 

9208:A9 FF 85 F9 etc... 

Lorsque vous avez termine tapez BSAVE T.FONCTIONS, AS 9200. 

LS210. 



Pour lancer le programme tapez BRUN T.FONCTIONS. 
Si vous I'utilisez avec un programme Basic, n'oubliez pas de taper 
HIMEM:37375 afin que I'utilitaire ne sort pas efface par les varia- 
bles. 

Comme precise precedemment, ce programme permet de redefinir 
des touches de telle sorle que lorsque I'une d'entre elles est trap- 
pee. la chaine de caracteres qui lui a ete assignee, soil renvoyee a 
la place du caraclere frappe. 

Je m'explique: Vous pouvez par exemple redefinir la touche CTRL-T 
pour qu'elle affiche-TEXT, ou CTRL-P pour PRINT. Pour cela. vous 
lancez le programme, vous tapez CTRL-Shift-a (ou en clavier ameri- 
cam) et vous voici devant un menu comportant 4 options. Tapez 1. 
lordinateur vous demande alors quelle touche vous desirez redefi- 
nir. Vous pouvez essayer CTRL-M par exemple. et assigner a cette 
louche la fonction CALL-151. Desormais, des que vous taperez 
CTRL-T. il sera affiche CALL-151. Pas mal. non? L'option 2 permet 



APPLE 



de lister toutes les touches redefinies avec leurs chaines associees. 
L'option 3 efface toutes les definilions et le clavier redevient normal. 
L'option 4 permet d'afficher !a longueur du programme allonge de la 
table des fonctions, ce qui permet de sauvegarder les affectations 
frequemment utilisees sans avoir a les retaper a chaque utilisation 
II suffit de faire BSAVE (nom de fichier). A$ 9200, L$ (nombre indi- 
que par l'option 4). 

Ce programme peut etre utilise avec le Basic Applesoft, le Basic 
entier et le moniteur. Un reset fart retourner a lentree normale et 
pour reprendre la routine, il suffit de faire CALL 37376 (ou 9200G 
depuis le moniteur). 

Attention, si vous assignez une lettre normale de I'alphabet. a cha- 
que fois que vous la taperez. la nouvelle fonction s'affichera. Si 
vous desirez rajouter un RETURN a la fin de votre chaine, tapez a ( 
en clavier americain). Exemple: CATALOG . Si vous aviez toujours 
regrette de ne pas pouvoir redefinir des touches sur I'Apple. conso- 
lez-vous. c'est maintenant chose faite. 



92ee 

9206 
9290 

92ee 



TOUCHES DE FONCTIONS 
POUR RRPLE 2 
■ XflVIER LEROY-02^09^1984 



■ ASSEMBLEUR LISA I 



ROUTINES DU MONITEUR & ( 



KEY1H EOU OFDIB 

RC't.EV EOU 0FD9C 

CETLN EOU «FD6F 

COUI EOU «FDED 

CROUT EOU •FDBE 

PRTAX EOU «F94l 

I0INIT EOU »93Efl 

buff eou «e2ee 



ENTREE flu CLAVIER 
flFFICHACE CURSEUR. ENTREE CLflVIER 
ENTREE D'UNE LIQHE 
AFFICHHGE D'UN CARflCTERE 
AFFICHAGE CUM RETURN 
AFFICHAGE NBR 16 BITS 
INITIALISATION ENTREES'SQRTIES 
BUFFER 0' ENTREE 



. VARIABLES EN PftGE ZERO 



v ':■-:. EPZ S38 

KSMH EPZ 039 

I OX EPZ 9F9 

PTRL EPZ *FA 

PTRH EPZ *FB 

AUXL EPZ OFC 

flUXH EPZ «FD 

SHUVY EPZ tFE 

SflUVH EPZ OFF 

INITIALISATION 



iVECTEUR D'ENTREE DE CARflCTERE 

; INDEX SUR Lfl CHAINE EN COURS 

.ftORESSE DEBUT CHAINE 

;EN COURS 

;VftRIflBL£ DE TRAVAIL 

.SAUVEGflRDE DES REGISTRES 



9209 ftS9F 
9202 8539 
929* A992 
9296 8539 

9298 H9FF 
929fl B5F9 
329C 4CEA83 
928F 
920F 
929F 

929F 84FE 
9211 B4F9 
9213 C9FF 
9215 F99D 
921? 

9217 BIFft 
9219 F995 
92 IB E6F9 
921D A4FE 
921F 69 



5226 ftOFF 
9222 34F9 
9224 
9224 



9228 C988 
9220 F938 
922F 
922F 
922F 

922F A595 
9231 S5F« 
9233 R994 
9235 SSFB 
9237 

9237 A999 
923? BIFfi 
923B F913 
9230 C5FF 
923F F014 
924 1 C8 
5242 BlFfl 

9244 48 

9245 C8 

9246 BIFft 
9248 5SFB 
924A 68 
924B 85Ffl 
924D 4C3792 
9259 

9259 

9259 

9259 

5259 A4FE 

9252 A5FF 

5254 69 

9255 

9255 

9255 

5255 

9255 18 

9256 A5Fft 

9258 6993 

9259 85FR 
5256 5992 
325E E6FB 



41 DEBUT LDfl •ENTCAR 

42 STA KSUL 

43 LDA •ENTCflR 

44 STH KSUH 

45 LDfl MFF i ENTREE NORMflLE AU DEBUT 

46 STA IPX 

47 JMP 10INIT ; INITIALISATION 

48 ; 

49 . NOUVELLE ROUTINE D'ENTREE 



8E0 EHTCLV 

LDfl <PTRL>.' 
BEO RESETF 
INC IDX 
LDY SflUVY 



iENTREE DEPUIS LE CLflVIER ? 
iOUTLE FfilRE 
NON PRENDRE PROCHAIH CARflCTERE 
>DE Lft CHRINE 

.SI NUL.fiLORS FIN DE Lft CHflIHE 
■SINC«,LE RENVOYER 



. PETOUR ft L'ENTREE PflR LE CLffVIER 



ENTREE Hi CLffVIER 

ENTCLV LDY SfUJ'/Y 
JSR KTriN 
STfl SHUVfl 

cmp ttsa 

BED MENU .CTRL 9 ■ HPREL WJ MENU 

- EST-CE UME TOUCHE DE FONCTION ? 

LDfi «rj£6T&L 

STfl PTPL 
LCfl -TJEBTBL 
STfl PTRH 



LDY 10 

LOft <PTRL>. - i 

BEO FII#JCH 

CMP S»JVfl 

EEC 3ETF 

\H< 

LDfl <PTPL^.-. 



187 SETF CLC 



LDft PTFL 
flC-C »3 
^Tfl PTRL 
BCC SETF1 
INC PTPH 
LDfl t9 
STfl IDZ 
JMP EHTC 



.ajOE TOUCHE DE FONCTION 
I = 8 ? FIH DE Lft RECHERCHE 
. - TOUCHE FRHPPEE ? 
;0UI 'PREPARER EHTREE DEPUIS 
CHAINE 
, HON EXAMINER LA FONCTION 
-SU1VAHTE 



iPEN-ZOYER LA TOUCHE FPAPPEE 



.PIP POIHTE VERS 

.LE r,€EUT t€ LA CHAIHE 

.'3 CFOMCTERES PLUS LOIM 



9267 

9267 A972 
9269 A993 
926B 294393 
926E 280CFD 

9271 48 

9272 298EFD 
9275 203EFD 

9278 68 

9279 C98I 
92?B F814 
927D C9B2 
927F F834 

9281 C9B3 
9283 F89F 
5285 C9B4 
928? F812 
92S9 288EF0 
928C A4FE 
528E A998 

9290 69 
929! 
9291 
9291 

9291 4CE392 
9294 
9294 
9294 

9294 R990 
9256 809994 
9299 F9CC 
929B 
9296 
929B 

9296 A0FE 
9290 A993 
929F 294393 
92fl2 295493 
92A5 38 
92A6 A5FC 
92A8 E999 
92AA AH 
92A6 A5FD 
92flD E992 
92HF 2941F9 

9282 4C6792 
52B5 
92S5 
52B5 
92B5 ft909 

9287 85FC 
92B9 R994 

9288 85FD 
92BO A990 
92BF B1FC 
92C1 F9A4 
C-2CJ 103393 174 
52C6 ft9e0 175 
92C8 28EDFD 176 
92C8 C8 177 
92CC B1FC 178 
92CE 48 179 
92CF C8 180 
9200 B1FC 181 
92D2 48 182 
92D3 C3 183 
9204 294593 1%4 
9207 68 183 
92D8 85FD 186 
92DR 68 187 
9209 85FC 188 
92D0 298EFD 189 
92E8 4C8092 199 
92E3 191 
92E3 192 
92E3 193 
92E3 A0O5 194 
52E5 A993 193 
92E7 294393 196 
52EA 290CFO 197 
92ED 48 198 
■.-.VFtE 2-f3353 199 
92FI A0E9 299 
52F? R593 291 
52F5 294393 202 
52F8 296FFD 293 
52FB fl999 294 
92F0 5C-9092 205 
9399 29M93 296 
9393 0898 297 

9305 68 298 

9306 91FC 209 



. AFF1CH0GE OU MENU 

«NU LDY •NSHENU 
LDfl /MSMEHU 
JSR PRINT 
JSR ROKEY 



jflFFICHHCE TEXTE 



BEO LSTFCT 
CMP »"3- 
BEO HENFCT 
CMP i'4- 
BEO AFFLOH 
FIH JSR CROUT 

LDY SAUVY 
LDfl 1*98 
RTS 

. 'PEHVOI-POUR PEPMETTRE UN BRHHCHEMENT PELRTIF) 

EHTFCT JMP ENTFI 

I EFFflCEMEHT DE TOUTES LES FOHCTIOHS 

NEWFCT LDfl #9 

STA OEBTBL 
BEO MENU 

flRFICHAGE DE LA LONGUEUR DE LFl TABLE 

AFFLOH LDY irtSLOH 
LDfl ^MSLON 
JSR PRINT 
JSR RFIH 



LDfl AUXH 

SBC ^C'EB'JT 

JSR FRTFiX 

JHP MEMJ 



iftX^FIH TflBLE-OEBUT PRCM 



■ LISTE DE TOUTES LES FOHCTIOHS 

LSTFCT LDfl •DEBT8L 

STA AUXL 

LDA ^DEBTBL 

STfl flUXH 
LSTF1 LDY 10 

LDA <AUXL),Y 

BEO MEHU 

JSR PRTHSC 

LDfl *«B0 

JSR COUT 

IHY 

LDfl (AUXL>,Y 

PHfl i 

IMV 

LDfl <RUXL>.Y 

IN-i- 

JSR PRIMT1 i 

PLfl j 

STft RUM 

PLfl 

STA AUXL 

JSR CROUT 

JMP LSTF1 

, EHTREE MOUVELLE FONCTION 

ENTFI LDY »HSTCH 
LDfl •MSTCH 
JSR PRINT 

JSR RDKEY 
PHfl 

JSP PPTASC 
LDY trtSLIB 
LDA /MSLIB 
JSR PRINT 
JSR CETLN 
LDfl 19 
STA BiJFF.X 
JSR RFIN 
LDY »9 



.AFFICHAGE DE Lft TOUCHE 



;ENTREE DE LA CHHIHE ftSSCClEE 



9311 0992 
5313 ft98D 
9315 91FC 

9317 C8 

93 18 D9F9 
531A 91FC 
931C C8 
9310 51FC 
531F 18 
9329 98 
9321 SSFC 

9323 48 

9324 A990 
5326 65FD 
9328 A992 
932A 91 FC 
932C 68 
932T- 88 
932E 9IFC 



PLA 

STA CfU&.},\ 

LDY t3 

EMTF2 LDfl euFF-S. 1 ! 
BEO EHTF4 
CMP t«C9 
Bit EHTF3 
LDfl t»8D 

ENTF3 STfl (hUXO.V 



Lt-A »9 
ADC: AUKH 
LDY #2 

STA •ftf.'L/. 



iSTOCKflCE TOUCHE 

.RECOPIE LA CHAINE flSSOCIEE 



.Fill DE LA CHA1IC 
.FIH DE Lfl TABLE 



-STOCrAGE At+tSSE DU SUIVANT 



9333 
9333 

9333 C9A9 
5335 ec*j9 
5337 48 

9338 A9DE 
933A 20EDFD 
933D 68 
933E 9949 
9349 4CEC-FD 
9343 
9343 
9343 

9343 84FC 
9345 85FD 
9347 A999 
9349 B1FC 
934B F90^. 
9340 29EDFD 
9359 C0 
5351 D9F6 

9353 69 
5354 
5354 
9354 
5354 

9354 A909 
9356 85FC 
9358 R994 
935fl 35FD 
935C A999 
935E B1FC 

9368 F09F 

9362 C8 

9363 81FC 

9365 48 

9366 C8 

9367 B1FC 

9369 85FD 

9368 68 
936C 85FC 
936E 4C5C93 
9371 69 
9372 
9372 
9372 
?T.-2 fX-<S> 281 
9374 B1AC-02 282 
9377 C5C4C5 
937ft C6C9CE 
937D C964C9 
9389 CFCEA9 
9383 D4CFD5 
9386 C3C8C5 

9389 80 283 

9339 B2R0CC 234 
9380 C903D4 

■■''.-■<■ r.r-ww 

9393 C5D3A9 
9396 CID3D3 
9395 C9C7CE 
939C C1D4C9 
939F CFCED3 
93fl2 80 285 

93A3 P390C5 286 
93R6 C6C6C1 
93fl9 C3C5CD 
93AC C5CED4 
93ftF H904CF 
9382 D4C1CC 



.If hEMJ 
■ AFFICHAGE CARACTERES DE CONTROLE 



■■ AFFICHflCE D'l, 



PRINT STY ATJ>J. 

STfl AUXH 

LDY t9 
PRINT I LDA <A!JXL>.'i 

BEO PRIin2 
» COiJT 



■ FIN DU MESSAGE 



1NY 



■PIHT1 



LDA IDEBTBL 

STfl ftiJXL 

LDA ^DEBTBL 

STfl FlUXH 

LDY 18 

LDfl (AUZL>,Y 

BEQ RFIN2 

IHY 

LDft <AUXL>.Y 



STfl flUXL 
JMP RFINl 
RF1H2 RTS ;<flUX> POIHTE SUR LE 80 FINAL 

I LIBELLE C€S MESSAGES 



9386 84ADCC 
9389 CFCEC7 
938C D5C505 
938F D2A9P4 
93C2 CIC2CC 



287 



ftSC -3-EFFflCEMEHT TOTAL' 



ASC -4-LONCJJEUR TABLE" 



93C3 
93C6 

93CS 
53CB 
93CE 
9301 
9304 
9305 
9308 
930B 
93DE 
93E1 
93E4 
93E7 
93E8 
93E9 
93EB 
93EE 
93F1 
93F4 
93F7 
93FA 
93FD 
93FE 
9491 



D6CFD4 290 ftSC -VOTRE CHOIX' - 
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DEUX SUPER-CONCOURS PERMANENTS 

10 000 francs de prix au MEILLEUR LOGICIELdu MOIS et un VOYAGE EN CALIFORNIE 

au meilleur logiciel du TRIMESTRE. 



Un concours de plus ! 
Ri en de bien original dans cette 
formule, pourtant nous es- 
sayons de faire quelque chose 
de different : nous organisons 
un concours permanent tous 
les mois et tous les trimestres! 
E t avec des pri x dignes des pro- 
grammes que vous allez nous 
envoyer! 

De plus, ce seront les lecteurs 
eux-memes qui voteront pour 
leurs programmes preferes sur 
la grille recapitulative men- 
suelle. 

Pas de Jury, pas de decision ar- 
bitrage, HEBDOGICIEL n'inter- 
venant que dans le choix des 
programmes qui devront etre 
ORIGINAUX et FRANCAIS. Si 
voire programme n'est pas tout 
a fait au point, un de nos spe- 
cralistes vous dira comment 
I'ameliorer pour pouvoir nous le 
proposer a nouveau. 



Pour participer. il vous suf lit de 
nous envoyer vos programmes 
accompagnes du bon de parti- 
cipation ainsi que toutes les ex- 
plications necessaires a I'utilt- 
sation de ce programme. 
Bonne chance! 



Heglcmenl 

ART. 1 HEBDOGICIEL organise 
de facon mensuelle et trimes- 
Inelle un concours dote de prix 
recompensant le meilleur logi- 
ciel du mois et du trimestre 
ART. 2 ; Ce concours est ouvert a 
lout auteur de logiciel quelque 
soit le materiel sur lequel il est 
realise L'envoi d'un logiciel en 
K7 ou disquetle accompagne 
dun bon de participation de- 
coupe dans HEBDOGICIEL ou 
envoye gratuitement sur de- 



mande par la redaction de notre 
journal constitue lacte de can- 
didature 

ART 3 La redaction d'HEBDO- 
GICIEL se reserve le droit de 
selectionner sur la base de la 
qualite et de I'originalite les logi- 
ctels qui sont publies dans le 
journal 

ART 4 Ce sont les lecteurs qui. 
par leur vote, determment les 
meilleurs logiciels mensuel et 
trimestriel. 

ART 5: Le prix alloue pour le 
concours mensuel sera remis au 
plus tard un mois apres la clo- 
ture du concours mensuel 
ART. 6: Le prix alloue pour le 
concours trimestriel sera remis 
au plus tard un mois apres la clo- 
ture du concours Inmestriel 
ART. 7 Le present reglement a 
ele depose chez Maitre Jauna- 
tre. 1 . rue des Halles 75001 Paris 
ART 8 HEBDOGICIEL se reser- 



ve le droit dinterrompre a tout 
moment le present concours en 
en avisant les lecteurs un mois 
avant 

ART. 9- La participation au con- 
cours entraine lacceptation par 
les concurrents du present re- 
glement 

HEBDOGICIEL: 27, rue du Gal 
FOY - 75008 PARIS 

Sera declare gagnant le pro- 
gramme qui aura obtenu le plus 
fort pourcentage de vote par 
rapport a la totalite des pro- 
grammes recus pour un meme 
ordinateur. 

Ainsi, pas de favorttisme pour 
les ordinateurs plus puissants 
ou tres diffuses. 



BON DE PARTICIPATION 



Nom : 

Prenom : 

Age : Profession : 

Adresse : 

N° telephone : 

Nom du programme : 

Nom du materiel utilise : 

declare elre I'auteur de ce programme qui n'est ni une imitation m une 
copie dun programme existanl Ce piogramme reste ma propnele et 
j'autonse HEBDOGICIEL a le publier. La remuneration pour les pages 
publiees sera de 1000 francs par page (un programme noccupant pas 
une page entiere sera remunere au prorata de la surface occupee) 

Signature obligaloire : 

(signature des parents pour les mineurs). 

Le programme doit etre expedie sur support magnetique (cassette ou 
disquelte) accompagne d'un d_escriptif detaille du materiel ulihse. 
d'une notice d'utilis alion du programme Les supports" des program- 
mes publies sont conserves , noubhez done pas d'en taire une copie 



RECOMM ANDATIONS AUX LEC- 
TEURS QUI SOUHAITENT FAIRE 
PUBLIER UN PROGRAMME : 

• Envoyez vos supports, mode 
d'emploi. listings et bon de parti- 
cipation dans une meme enve- 
loppe. 

Vous pouvez nous envoyer plu- 
sieurs programmes sur un meme 
support en I'mdiquant sur votre 
Bon de Participation. 

• N'oubliez pas et ceci est tres 
important, d'mscrire sur vos sup- 
ports votre nom, le nom du pro- 
gramme et le materiel utilise. 
Notez dans les premieres lignes 
de vatre programme, sous forme 
de REM. votre nom. le nom du pro- 
gramme et le materiel auquel il est 



destine. Nous pourrons ainsi re- 
perer faciJement les listings, une 
fois sortis de limprimante. 

• Dupliquez plusieurs fois sur la 
cassette et a des niveaux d'enre- 
gistrernenl differents votre pro- 
gramme. Nous aurons plus de 
chance d'arriver a le charger si les 
magnetophones ne sont pas tout 
a fait compatibles. 

• En ce qui concerne les bons de 
participation, mettez votre adres- 
se com plete et votre numero de 
telephone (si vous en avez un). 

• Pour tout envoi tel que "petites 
annonces". ."abonnement" et 
"programmes" specifiez sur vos 
enveloppes I'objet de votre cmir- 



• Expliquez les particulates de 
votre ordinateur et le moyen 
d'adapter votre programme a 
d'autres ordinateurs. 

• Vu le nombre important de pro- 
grammes similaires que nous re- 
cevons. evttez de nous envoyez 
lesjeuxsuivants:BIORYTHMES. 
MASTERMIND. PENDU. TOUR DE 
HANOI, CALENDRIER. BATAILLE 
NAVALE. POKER, JACKPOT. 
BOWLING. BLACK JACK. LABY- 
RINTHE, MEMORY SIMON. 421. 
OTHELLO. SOLITAIRE, LOTO. 



LA REGLE A CALCUL RE- 
COMPENSE LES MEILLEURS 
LOGICIELS EN OFFRANT A 
CHACUN DES PREMIERS 
DANS LEUR CATEGORIE UN 
OUVRAGE A CHOISIR DANS 
SON RAYON LIBRAIRIE (EDI- 
TEURS : BORDAS, DUNOD 
EYROLLES, MASSON, NA- 
THAN, PSI. SHIFT, SYBEX). 



Les editions du CAGIRE offrent 
au meilleur logiciel du mois sur 

HP4T, leur Dvre "autourde la bou- 
de" de Janick TAILLAND1ER. 



RECOMMANDATIONS 

PARTICULIERES 

AUX POSSESSEURS DE 

TRS80 

Indiquer avec precision le mo- 
dele d'ordinateur auquel le pro- 
gramme est destine. Si le pro- 
gramme est enregistre sur 
cassettes utilisez obJigatoire- 
ment la vitesse de 500 bands, 
meme sur un modele III. 
Dans tous les cas ou le pro- 
gramme est enregistre sur cas- 
sette il faul avoir utilise fa Vi- 
tesse de 500 bands et non, en 
particulier. la vitesse de 1500 
bands du modele III. 



BATAILLE AERIENNE 



PETITES ANNONCES GRATUITES 



II vous faut detruire I'avion adverse pendant la periode 
de coups limitee. Les avions se deplacent obligatoire- 
ment de 5 cases dans un carre de 30 cases de cote. 



Exempfe: Notre avion est en: X = 18 et Y = 16?. Le radar indique 
"ENNEMI A 4 CASES (X)" et aussi "ET A 2 CASES <Y)\ L'avion 
ennemi peut se trouver 3 4 endroits differents: 
X = 22 et Y - 18 



Srephane LUNATI X = 22 et Y = 14 



On dihge les avions avec le pave numerique: 8 pour monter. 2 pour 
descendre, 4 pour alter a gauche et 6 pour aller a droite. 
Quand I'ordinateur demande le emplacement, on peut appuyer sur la 
touche 9, I'ordinateur dira ce qui vous reste comme armement. 
Pour le tin 1 sert a tirer 100 balles, 2 a tirer 1 missile et 3 a tirer 1 
missile a lete chercheuse.La touche 4 sert a tirer 5 roquettes. 
Quand on tire avec le missile a lete chercheuse, il faut etre sur des 
coordonnees de I'adversaire car celui-ci a de grands risques d'etre 
touche. Chaque avion est muni d'un radar, fonctionnant 6 cases au- 
tour de lui, mais ce radar ne donne pas la position exacte de I'autre 
avion. 



: 14etY= 14 



PC 1251 



X = Met Y= 18 

L'ordinateur indique la valeur absolue du nombre de cases qui se- 
pa/ent les avions. 

La "RESISTANCE" permet de faire voler les avions. Quand la "RE- 
SISTANCE" esl a zero. I'avion est detruit. La "RESISTANCE" dimi- 
nue en fonction de I'arme qui atteint I'avion et du nombre de fois 
que I'avion a ete atteint. 

Si les avions se trouvent sur la meme case, pendant la partie, il y a 
collision et il n'y a pas de vainqueur. 
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VENDS Tt99/4A (iaB3) + Peritel + in- 
terface antenna tele + magneto + cor- 
don magneto + alimentation + manet- 
tes + Basic Atsndu + Pasec + gestkxi 
fichier + Munchman + Mash + Ant 
Eater + Rub:-, Sacre 4 Basic par so<- 
meme + nombreuse Doc + 40 pro- 
grammes sur K7 (Valeur 5100 F.) 
vendu 4000 F. GUbert ASTIER 158 La 
Capatofle 13010 MARSEILLE. Tel: (91) 
80 05 07. 

VENDS CASIO FX 702P etat neut + 
imprimante + interlace K7 + manuels 
+ rxxnbreux programmes, le tool 1500 
F. herve POULAIN Tel: (29) 82 38 56. 

VENDS MPF II 64K PAL achete Juin 
83 : 2400 F. Monsieur JAMAIN Groupc 
scolaire 54780 GIRAUMONT Tel: (8) 

233 09 78 (le Mir). 

VENDS FX 702P + imprirnante + In- 
terface K7 + cassette de 39 program- 
mes: 1800 F. Marc CHERUAU Tel: 237 
66 69(aperst9H30). 

VENDS Mattel Irrtellrvision bon etat: 
1000 F. Micro surgeon 200 F. f 
Demon Attack: 200 F. + PrtfaD: 200 F. 
4 Burgetime: 200 F. * Super cobra: 
200 F U tout pour 2000 F. t- Roulette 
(gratuiio). Alex JELENKOVIC. 23 txj 
Francois Grosso 06000 NICE. Tel: (93) 
44 33 34. 

VENDS TI99/4A (8J83) Peritel + modu- 
tateur Secqm + basic Etendu + Ma- 
gneto K7 + manettes feu + module 
Tombstone City + programmes sur K7. 
Dans emballage d'origino. le toul 2000 
F. Olivier GOUGEON 40 rue Rene 
Cassin 50110 TOURLAVILLE Tel (33) 
43 75 51. 

VENDS Brother EP 22 Machine a 
eenre / imprimante + cable liaison 
COM.64 VIC 20. Andre TARRAT Tel: 
347 09 io. 

VENDS SHARP PC 1500: 1200 F. 4- 
CE 159 (module 8 Ko RAM prolGgea- 
We) : 700 F. + papier CE 150 4 tivres 
(4) + malelte Le ten! 2300 F. VENDS 
Interface pour DOT Matrix APPLE, per- 
met la copie d'ecran giaphqiuo direcie- 
merrt au clavier: 700 F. Joel LEMOINE 
2 rut? Albert Leyge Bat 28 esc 2 95340 
PERSAN. 



VENDS PC 1500 + CE 150 (irnpn- 
mante) + CE 155 (11/83) + kvres: 
4000 F. Christophe FLEURY Le Forom 
B rue du Caprtole 83200 TOULON. Tel: 
(94) 22 28 04. 

VENDS TT99/4A (12VB3) * cables ma- 
gneto * manettes do jeu + 2 livnM > 
2 K7 + Tl Invaders -*■ Alien Addition + 
Minus Mission. (Valeur 2900 F.) Vendu 
2000 F. (a debattre.) Jacques LECAFt- 
PENTJER E8 Square AToert Camus 
92390 VIUENEUVE LA GERENNE. 
.Tel: 798 06 45. 

VENDS TI99/4A (console + cable + 
manuel + manettes) avec modules + 
cassettes basic Etendu et Basic Simple 
par soi-meme et divers revues. Le lout 
2300 F. A debattre. Thierry LALLE- 
MAND Tel: 350 23 17 (le matin ou to 
soir apres 19H). 

VENDS VIC 20 modete PAL + lecteur 
enregistreur de K7 + module de Jeu 
Protector + 3 hvrei la conduHe du Vic 
20' *Les grands classiques du jeu sur 
VIC 20* "Spacegames*. + 6 K7 de 46 
programmes onregistres. (valeur 2200 
F.) vendu 1800 F. le lout J.Pierre 
GIORGI 22 bis les Saprns 54190 VIL- 
LERUPT. 

VENDS TI99/4A (1/84) + magneto + 
cable + joystick > Basic Etendu + mi- 
rimem + Parsec + Moon mine t 
Nombreux livres + programmes sur K7 
:2500F. 

VENDS Basic Etendu neul; 500 F. Ste- 
phana TRIN DPNH Tel: 631 63 51 
(apres 19 H). 



VENDS APPLE Ho + Disk 4 
vert * padd>e + doc. + SO program- 
mes environ (jeu* et uiiliteiros): 13.000 
F. 

VENDS TI99'4A * manettes jeux < 
cable magneto t 6 modules jeux » 
doc. Import : 1700 F J.F. DOUSSON 
Tel: 991 52 40 

VENDS CASIO FX 702 P neul (6 ois 
d'utilisalion) f Impiimante FP to + In- 
terface K7 special t bouquins t rou- 
kroui papier imprim.iole (valour 2500 
F) vendu 2000 F. A debattre Tel: (7) 
894 25 45 (onlre 18H et 20 H). 



i SuHe de la page 1 



Entin. un lo- 
giciel educalil qui sail elre amu- 
sant I Les fanaliquos du podago- 
didacliciel classique ont, en 
prime, droll a des quosllons 
beaucoup molns nmusanlos style 
produi! national brut, industiies. 
agriculture etc. Ouelquos ques- 
tions 6galomont sur los oceans ol 



loa mors, comme la mediterran- 
neo au bord do laquello se Irouvo 
Cannes et pourvu que le Mijid 
solt encore la lannoo prochaine 
et qu'il Fosse aussi benu quo 
code annoo I 



CHnpilfTCR! 


lode Runner 


' hB 


Biujeftxjnd 


umrv 




HU-BEBT 



W, 




-nouveau- 



HATCH flWl *1iC HI 



DEMANDEZ LE PROGRAMME 

Achetez vos logiciels les yeux fermes, nous les avons testes pour vous ! 

Nous avons selectlonne pour vous lea mellleura logiciels actuellement dlaponlblos en France. Nous ne 

» aHW ,it pretend ons pas que cefte llste est complete et definitive et II est evident que nous y rajouteronsrSgulle- 

rement des programmes. Pourtant, vous chercharei an vein certains programmes qui Joulssent d'une 
bonne reputation at qui se vendent surt out grace a la publlclte at aux consells dea vendeurs qui ne peu- 
vent pas connahre tous les logiciels dlaponlblos. Nous avons cfosso a part nos propres prodults i les 

■• •',.-'„'■' Hebdogtctet Software. 

Lea prlx sont, nous I'eaperona, les meilteura du marche et tea abonnia - anclens ou nouveaux - benitl- 

»*«••<» clent en plus d'une remise de 10 %. SI vous dies nombreux a nous aulvre dans celte experience nous 

pourronsrapldementarrlvar at aire bolsserleatarlfs des fournlaaeura pour aUelndrol'ob}ectlt que noua 

"n'TiwVw nous sommes tlxe: ramener lea prlx a une plus Juste valour I , 

Lea classements sont lalta en tonctlon de I'lnterit du programme et ne tlennent pas compto des prlx, 
c'estavoua dejuger del'opportunlte de la depenae. N'oublleiquand m6me pas que s//e rapport quell- 
te/prlx eat mauvals, la loglclel ne peut flgurer dans cette page I 
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HECTOGRAPHE 



Gr^ce A ce programme vous pouvez: 

- Dessiner avec le joystick sur I'ecran. 

- Creer votre propre gamme de caractere et sauver le 
tout sur K7 ou copier sur votre imprimante le dessin 
obtenu. 

Le menu est dans le programme. 



HECTOR HR 



60 ' IUXCTOR 1 



I ■ BEEP iouoe5 



Patrick LHUILLIER 

seo datao.o. 72, ioe, loa.ioa, tos, ioe,62 

390 dataO, 0.72, 108, 106, 108,108,104,36 
6O0 dataO.O, 146,219,219, 219,219,233, T. 
6IO data0,0,79, 190,48, 124, 176, 60,216l 
620 dataO.O, 140,206,206,246,98,6, 124) 
630 data 124. 248. 8, 16.124.16,32, 120,244 

640 ' WM WIWIWII H IIWIIIMB ttl 

630 -t ) 

660 ** proQTaa** principal* • 

670 '* .1- tr.ru,.,-. »ur I ■ tcr... t 

680 'i ■ 

690 'i.i.i.im.iitH.itii.iiiiiui 

693 pwlipnM' 

696 print 

697 par.2 
700 K-lllY-207 

720 output".-.: 










ISO *t DCSSINCR AVEC JOYSTICK 
140 '* 


' 




160 tip* 






























203 A»-lnk»y»l5> 






210 l«*»c(A»l-9th«r.gi«ub910 












212 lfa»ctA«)-3th*ngt)tal300 






220 onJgoaubllfcO. 1270, I2BO, 1290, 


I3O0, 


1310. 



3-0 pabat3AC4.kCO l po-*r.5AC3,*42 

340 gotol4to 

hOO uar H21Clitap«0 



730 I '41 



' -8th «■ 



utput 



l-**9.23l*l»*prlntA»l ■] 

taae !'■%> -SthvngcrsublSO 
Fa*C lA*»-4th*ngoiMjtol41l 

1 J >230th*n.- 1 1 1 Y-Y-IO 



•controle o- 



390 dat»A4. 192.216,23*,204.2< 
4O0 dataO. 16,36.76, 192, 192. 1' 
4IO data!2, 12. 108,220,204,20' 

4IO d*t*24, 44, 96,240, 96, 96J94 

440 dataI6,36,76,206,206,24&, 

430 data*4, 192,216,236, 204,2< 

460 data32.96,96,96.96,96,96. 



490 4ata224.96.96,96,96,96,9b, 120,112l'L 
300 dataO.O, 182,219, 219, 219. 219, 219, 73 t '« 
310 dataO, 0,216,236,204,204, 203,206, 72t'N 
S20 s).t •0.32.88,204,204,204, 104, 161-0 
330 dataO, 236, 118,102,118, 104, 96, 96, fr4l"P 
3*0 dataO, 110, 220,204,204, 220,108, 12, Bi'O 
330 dataO, 0,0,44. 126,98,96,96, 96, 44l 'R 
360 da 1 424, 44,96,96, 96, 96, 96, 9*, 64 1 "S 
370 dat*96. 248.96.96. 96,96,96. 96. 64l 'T 



Mt240, 13iu«rlr»79r 



1270 




1280 








1 300 




1310 




1320 




133© 








1390 


X-**F>i V-Y-Pi rrturn 


1393 


and 


i3*o 


I l.t.l Hl.Ill.II.tttl.UIH.il 


137© 








1390 






■■■■tiiit*atia(ttt«i*******t«ii 






1-Uv 


prlntipr Intrpr Intiprlnfl -> alphabet gotnlau* 


1430 


printi printi prlnt-2 -> dwalnar - 


1431 


print. printi prlnt-3 -> aortlr" 






I4J33 










i*LHUI)ta--| B tb«nHlpaigoto6V3 


1470 


l(0«I»«--2-tri.».gotoll60 


1471 


IfO*3Ixa--3-'h*n~tp*ip.lnt-b**lc HECTOR' ■ and 


1472 


i,CMOIX».-4-tnanootolfcOO 



1790 A»-lnatl-»<l 
1793 MlpaipvnS 
1800 print- In* 



1830 or: 



•"lit aulta 



'air* •COWTftOLE I* .- 






V C«Htt< 


nirt 'CCMTROLE E- i.-«nty.i ." 




I860 printi print -pour atttcrr 1-atcran 




fair* ■COHTROLE K' ," 




1B70 prtntiprlnt-pour rwar.tr HENU 




fair* 'CONTROLE D' (d-d*but> -• 




lBSO panliprlntiprlnt-taoa. una touch! 


pour tar* 


1083 Aa-inatra(i) 




1890 goloUlO 




1900 rMtor*19l0l«0rf409*0to4I008ira 


■dftipotal.A 


1910 dataO.O. 16,0,0,0,0,234,0,192, 1*3 


37.0,0.233 








1920 raturn 





THE GAMBLER 



En cette annee 2230, vous etes en periode de vacan- 

ces et pour vous detendre, vous decidez de passer 

votre conge dans une ville tres tres particuliere {ou se 

melangent les plaisirs de I'aventure du jeu et de lero- 

tisme). 

Votre but est de seduire 3 femmes, par n'importe quel 

moyen avant la fin de vos vacances. 

Pour cela, vous disposerez d'un certain capital au de- 



part, et tout au long du jeu, vous serez amene a jouer 
pour gagner davantage d'argent (celui-ci pouvant etre 
tres utile dans votre entreprise). 

Mais attention, de multiples dangers vous guetteront. 
Si vous etes ruine vous serez renvoye au purgatoire et 
vous aurez une chance sur trois de revenir dans le jeu. 



Centre 



L0RM8 

READY PI 
LIST 18 

1 IHP "HWIERO M 
RDRE ",H:liflIT 5 
8: IF H=H THEN 3 

2 PRT "FAUX: 1588 
* D,ftHE»E":Z=Z 
-1569: KB 98 

3 PRT "VOUS ETES 
OEVHHT UHV6RA 
HO BATIHEHT..." 

4 PRT 1 EHTREZ-V 
OUS: 0/H ?" 

5 if i!EY="N" TKEK 

36 
I- IF KEY»T THEN 
5 

7 PRT "CEST UHE 
USINE...VEHS 
KTEZ-HWS:(WI 

8 If KEY=Tj" THEN 

36 

9 IF KE**T ThEH 

8 

18 fftT »;"J7S r 
IMF K£f="S" THEN 
23 

12 IF K£Y*T THEH 

li 

13 PRT "VOUS REHTR 
EZ DRHSVUN Sli 
8EHi„.","UHE S 
SLiTTE ESI SHr" 

14 PRT 'LE BUREAU. 

..•.in psehez- 
vgusfO/K?" 

15 IF KH=T THEH 

23 

16 IF KEY*-0" THEH 

15 



17 PUT "ELLE COHTI 
EHT 2HHf:GS8 

16:Z=Zt2E4:IF 
8). 8 THEH 22 

18 F8T "UN SI6H8L 
B,BLflRHE',"PXTE 
HUT i 5 SSIKS 

28 FST "SURBIS5EKT 
EI V0US","U6P. 

nan cbreibft! 

21 PRT \..BIEN F8 
IT !!!":8SB»2: 
SOTO 36 

22 PRT "VOUS LR PR 
EHEZ ET'.'SORTE 
ZHJBUBEMJ..." 

23 PRT "VOICI 2 PO 
RTES...°,"L88'JE 
LLE PREHEZ-'/OUS 
",CSJ 9;"l>/6 ?° 

24 IF KEy="S" THEH 

36 

25 IF KEVi't" THEN 

24 
V, 6S8 i6:IF8<.7 
THEH 34 

27 PRT "VOUS VOiLfi 

DftHS LE","J8R0 
IH...",«;"E/3 ? 

28 IF KEl="£" THEH 

36 
38 IF HYfS" THEN 
28 

31 BSBt.iIFB.7i 
PRT "VOUS SCRTE 
Z OE Lfi","PfiOPR 
IETE...":SOTC 3 
6 

32 PST "2 CHIEHS S 
fiUTEi(TVSUP, VO 



US !!!",'iLS VO 
US DECHIREHT" 

33 PRT "TOUS VOS V 
ETEIBTS!':B=l: 

Z=Z-588:GSB 98: 
GOTO 36 

34 PRT "UKE TR8PPE 

S.OUVRE !°,"DE 
LB 6LUE VOUS.. 
; VEN6L0UTIT!! 

35 5S6 12 

36 PRT "VOUS VOILfl 

OfiNSVUHE AVE 
h'UE...",t;"H/0 
■?" 

37 If KEJ=V THEH 

41 

38 if KEV»°0" THEH 

37 
48 PRT "DES CRIS ! 
!","VOUS COURRE 
Z VERS", "CET EH 
DROIT.. ,":U» 

41 6SB 16: IF 5>.8 
THEH 49 

42 PRT "UH BUS VOU 
-SFOHCE","...OE 
SSUS !!":6S8 16 

43 IF 9>.5:PRT "VO 
USL.EVITEZ !!" 
:80T0 48 

44 prt "trop run. 

..*SB8 KifiOTO 

48 
58 IF ZiBiPRT "VOU 
S ETES RUiHE ! ! 
":6S6 12 

39 RET 



Chambre 



list n 



1 IHP "L.HEURE S. 
V.P MUHHI 30 
:PRT "CES CRIS 
VIEHKEHT..." 

2 PRT "D.UHE BaL 
E H9IS0H..","7 
EHTREZ-VOUS: 0/ 
H?" 

3 IF IEf=Tt" THEH 

79 

4 IF BK«Tr THEil 

5 PRT f;"0/E r 

6 IF KEY=V;P*T 
"VOUS RESSORTEZ 
...":6OT0 78 

7 IF KE7»"E" THEH. 

6 

8 PRT "VOUS HOHTE 
Z UHVESCIiLIER 

HEH8NT fi" 

9 PRT *2 FORTES.. 
,","0UVREZ-VOUS 

LS:l/2?" 

11 IF KE7="2" 

39 

12 IF KEYi'l" 

11 

13 6S8 »6:IF8>.7 
THEN 28 

14 PRT "VOUS REHTR 
EZ MHSVUH Sfi 
LOH OESERT...". 
*;"0/S r 

15 IF KEV="0";PRT 
"VOUS SORTEZ DE 
HORS..":60TO 78 

16 IF HV»"3" THEN 

15 

17 PRT 'VOUS TROUV 
EZ UHEVLI8SSE 

OE 1688t","MH 



THEH 
'THEN 



Thomas LEPRETTE 
S L.ESCflLIER !! 

18 Z=Z+Ie3:60TO 79 

28 PRT "3 HOHHES C 
HUSEHT...","FUV 
EZ-VOUS: 0/H ?" 

21 IF KEt="0";PRT 
"VOUS SORTEZ OE 

UiVnfllSOH... 
":60TO 78 

22 IF KEY»*H" THEN 

21 

23 PRT "ILS VOUS J 
ETTEHT","0(iHS L 
li RUE EH VOUS" 

24 C=INT (8»1e3:PR 
T "VOLnHT'iCi'l 

!!":eOT0 78 

38 PRT "UHE FEHHE 

PRES8UE..","NUE 

EST COUCHEE"." 

..SUR UH LIT ! ! 

31 PRT "Lfl SEDUISE 
Z-VOUS :",CSR 7 
;"« 0/H ? «" 

32 IF KEY="H" THEN 

58 

33 IF KEY*T THEN 

32 

34 8S8 16: IF 8>,6 
THEN 48 

35 PRT "ELLE 8PPEL 
LE SOH...VHRR 
I ft L.filOE !!!* 

36 PRT "VOUS PREFE 
REZ FUIRVEH V 
0YRHTLEH8RI.. 

37 PRT "REVENIR RV 
EC UH", "REVOLVE 
R !!":60T0 78 

48 PP.T "ELLE VOUS 




EHLRCE...VET 
PEHDfiHT 3 HEURE 
S" 

41 PRT "VOUS SRVOU 
REZ VOTRE", "VIC 
TOIRE DE PLHY-B 

or 

42 PRT "...SUR L,R 
HOUR !!!"sy=Y*i 
:6OT0 78 

58 PRT 'ELLE VOUS 
DIT:","VIEHS... 
PLAY-BOY..." 

51 PET "ELLE VOUS 
COHHRIT !!","'( 
RLLEZ-VOUS: 0/H 

52 IF KEY="0" THEH 
48 

53 IF KE7*"H" THEH 
52 

54 PST "TfiHT PIS.. 



76 PRT "V0IL8...VO 
TRE SEJOURVSE 
TEP.HINE !!" 

55 PRT "LE BILflH T 
CTRL VR","6IENT 
OT flRRIVER,..": 
LORD 



Check up 



LIST 18 

1 WRIT 5:F0R 0=6 
TO 9:PRT CSR 0; 
"<"!CSR 19-3;"> 
°;:HEXT 

2 FOR [>=9 TO 8 ST 
EP -l:PRT CSR I) 
;"*"1CSR lHi" 
•";:HEXT 

3 WAIT 38:pRT "t. 



FX 702 P 

suite du numero 
52 



•CHECK-UP FIHRL 
»«","VOILfl !! 
VOTRE" 

4 PRT "SEJOUR DBN 
S CETTE... ","TR 
ES BELLE KRIS" 

5 PRT "DfiHBEREtiSE 

VILLE, SEVIER 
H1HE " 

6 PRT "VOUS RVEZ 
REUSSI RVSEDU 
IRE »";Y;" *" 

7 PRT "CRERTURES 
DEREVE !!":IF 
M THEH 58 

8 PRT "VOUS RVEZ 
BIEH HEHE","LE 
JEU MIS Lfl" 

9 PRT "CHRHCE H.E 
TRIT PEUTVETR 
E PUS RU REHDEZ 

18 PRT "VOUS 

","8U0I 90, IL E 
N SOU," 

11 PRT 'VOUS REPfiR 
TEZ OURHDVNEH 
E AVECsZiV," 
ET SURTOUT..." 

12 PRT "DE CEXPER 
IEHCE RVEC","LE 
S FEHItES, DEHORS 

13 PRT "8UI HRHIEH 
T HOS...",'NUiT 
S ET HOS HSISOH 
S" 

14 PRT "J.ESPERE 
OE VOUS","REVIE 
HDREZ...." 

15 PRT "VOTRE HAVE 
TTE VOUSVftTTE 
HO....","»»tR 
8IEHT0T ! !«»»" 

38 HflIT 5:F0R D=8 
TO 9:PRT CSR D; 
">°;CSR 19-Dl"< 



"i:HEXT D 

31 FOR H TO 8 ST 
EP -URI CSR D 
;"»";CSR 19-0;" 
t";:HEXT D:PRT 

32 PRT "•««« THE 
EHD «»«t":VRC 

:END 
59 PRT "»•««• BRAV 

ii »»m»","VO 
OS HERITEZ LE" 

52 PRT "TITRE DE P 
LRY-BOY 1 1 WO 
US RVEZ REUSSI 
A" 

53 PRT "DEJOUER TO 
US LES","PIESES 

DE CETTE" 

55 PRT "VILLE ET J 
E NE PEUXV8U, 
ETRE RDHIRRTIF" 

56 PRT "DEVftHT TflH 
TDE...","COURfl 
6EET0E..." 

57 PRT "DOUCEUR f) 
LHFOIS !!","J, 
ESPERE OUE VOUS 

69 PRT "REVIEHDREZ 
EHC0RE","POUR 
VOS PROCHRIHES" 

61 PRT "VACANCES.. 
..":Z=Z*5e3:PRT 
"VOUS AVEZ DRO 
lift" 

63 PRT "UH BOHUS D 
E 5068)", "CE OU 

1 FRIT OUE VOUS 

65 PRT "FRRTEZ RVE 
C"iZ!"J IV... 

OE QOOI PASSER" 
67 PRT "0,R6REflBLE 
S SOIREES","i" 
» PLAY BOY ••• 
»":60T0 15 ■ 



DIAMANTS T\99 



Parviendrez-vous a dejouer ['intelligence, la ruse et les 
offensives des hussards et archers du chateau de Sir 
DIAMOND? Si vous avez cette chance, vous devien- 
drez le voleur le plus riche, grace aux 4 diamants que 
vous aurez derobes. 

Regis DELARIS 



Mode d'emploi: utiliser la manelte 1. 



BASIC ETENDU 




20 ■ 'DELAN13 REGIS' 

: ■ ■ «T! 99/4A(B.E)< 

*•■ ■• LE VOLEUR < 

50 ' • DE D1AHANIS ■ 



.-,■■ ' 

70 CALL CLEAR :: CALL SCREEN < I 1 ) : : CALL 
CHAR(63.--7.C4299AIA19942:X">:: DISPLAY AT 
17.5):~LE VOLEUR DE DIAMANTS" :: CALL NC 
HAR(8,7, 12&.2I) 
30 DISPLAY AT(12,8>:"7 DELANIS REGIS" :: 

I'OR 1 = 1 ID 500 :: NEXT I 
90 RECORD, MSC.SCM=iT> :: N04, MO« . T0»=" . . . . 

lOO VIE.SC=0 :: VIT=-13 

HO CALL CLEAR :: CALL SCREENU4):: CALL 
MAGNIFVC4):: VIE-0 
120 CALL CHAR<fcO, H FFB1BI818I8I81FFFF0204 
OB102040FFFF0101010l0101FFFF80aoaOBOBOBO 



HO CALL CHAFm28," , 0O00FFFFFFFFOOOO",I29 

,"0103070F1F3F7FFF",40, "QOOOFFFFFFFFOOOO 

'•.13O,RPT»<-0I",a) J 

150 CALL CHAR(B8,RPT*("O",l&>!."2O4OFF402 

-6RPT* ( "O- , 24 > *." 1 03FE03O1OOOOOO" ) 

160 CALL CHAR(72,"0007010301000103071DOI 

OlOlOlOlO3E0FB20E0E0C2P&PCE0E0eoF03C8CB4 

80") 



210 CALL CHAR(48," , 04040EOE150<10404040404 
0404040404 -fcRPT* CO", 32) ) 

220 CALL CHAR(14O."O10709324488FF4444221 
20AOS03/)100B0E0904B26IlFF222244485OA0COB 
OOO") 

230 CALL CHAR(92,"O4O4O404040404O7"&RPT* 
CO", l6)t,"E0E0E0E0E0E0CO80"*.RPT»CO", 14) 
> 



<A <?XA <?><A <■>>■?>' 

290 DISPLAY ATU8,1) :">?>« "*>?>A T>7 

>A ?>?>?7><A <?XA <?><A <?>?>>? 

>e=B=?>?>e=8=?>?>e=B-7>?>?" 

300 FOR A=2I TO 23 STEP 2 

310 FDR B-3 TD 29 STEP 2 :! CALL HCHAR{A 

,8,63):: CALL HCHAR(A, B*l , &2> : ; NEXT B : 

: NEXT A 

330 FOR B=2 TO 30 STEP 2 II CALL HCHARIA 

,B,63>1( CALL HCHARIA, B+l, 62):: NEXT B : 

: NEXT A 

340 DISPLAY AT (22. 4) SI ZE (4) : "PRPR* is DI 

SPLAY AT(23,*)SIZE(4):-DSDS" 

350 DATA 15,2,129,15,10,129,15,18,129,13 

,26, 129,15,31,66,15,32,67 

3&0 DATA 16,2,63,16,31,62,16,32,65,17,2, 

60, 17,31,60, 17,32,65 

370 DATA 18,2,63,18,31,62,18,32,65,19,2, 

60, 19,31.60, 19,32,65 

3BO DATA 20,2,63,20,31,62,20,32,63,21,2, 

60,21,31,60,21,32,65 

390 DATA 22,32,65,23,2,60,23,31,60,23,32 

,63,24,32,65,0,0,0 

40O RESTORE 330 

410 READ I.J.K i: IF 1-0 THEN 420 ELSE C 

ALL HCHAR(I,J,K) i : GOTO 410 

420 CALL C0L0R(2,9, I , 3,2,8, 4,2,8,5, 2, B, 7 

, 16,1,9, 12, 1, 10, 12, 1, 11, 12, 1,12, 12, I, 13, 

8,1,14,13,11 

430 DISPLAY AT (3, 1 ) I "bonus" i: CALL HCHA 

R( 3, 9, 40, 20) 

440 DISPLAY AT < 1 , I ) SI ZE (5) : "score" n DI 

SPLAY ATI!, 15) :"hi-scor»" 

430 TB-1 :: CDUP-O II GOSUB 1900 

460 DISPLAY ATU.24):"" :i I»-STR« (RECOR 

D): j I*="000O0"M» :: I*-SEG* ( I»,LEN(I«! 

-4,5) 

470 FOR I»l TO 5 ;: CALL HCMAR ( I , I *23, AS 

C<5EG*CI»,I,l))>i: NEXT I 

4BO CALL SPRITE(»l,BO, 16, B6, 10) 

490 DISPLAY AT (3,3) I "rt, 1 .vw "alpha-lock 

' »t~ :: DISPLAY AT (8, 2) ; "appuyw Mr *c 

300 DATA 400.523,400,387,400,639,400,387 
, 400,639, 4O0, 587.4O0, 639, 400, 69B, 3O0, 784 
,400,494 

310 DATA 400, 440,500,784, 400,698,300,639 
, 400, 698, 300,639, 4O0, 698, 50O, 323, 40O, 69B 
,500,639 

520 DATA 400.698,300,639,400,698,1000,39 
2 

330 RESTORE 300 
340 FDR A-l TO 24 
3SO REAR DU.NO 
560 CALL BOUNDIDU.NO. 10) 

570 CALL KEY<0,K,S>! : IF K<>99 OR 5-0 TM 
EN 380 ELSE 600 
380 NEXT A 
590 GOTO 330 

600 CALL HCHAR(5, 1,32, 1281 n CALL HCHAR ( 
7,30,140m CALL HCHAR(7,31, 142)1 I CALL 
HCHA(((B,30, I4I)ii CALL HCMAR <0, 31 , 143) 
610 CALL VCHAR(3,30, 130,2) ! : CALL HCHAR ( 
'., li ,66,2) 

6VO HONUS-IOO n CALL HCHAR ( 3, 9, 40, 20) 1 I 
VV-9 II TPS-O it CALL DPR I TC I i2, BU, 4 , G6 
,20O.O,VII) 
630 CALL PODITIDN(»I,X, Y) d ; CALL LUCA!£{ 



■l.Bd.Yisr CALL JOYST ( 1 , DX, DY) : : 
Yll,l:,S)i: IF 1=18 THEN GOSUB 1040 :: GO 
TO 650 
640 IF DX"4 THEN GOSUB 70O ELSE IF DX— 4 

THEN GOSUB 720 
650 CALL COINCCALL.CO) :: IF C0=-1 THEN G 
OSUB 740 :: GOTO 620 ELSE CALL MOT ION (HI 
,0.0):: GOSUB 660 II GOSUB 670 :: GOTO 6 
30 * 

660 CALL P0SITION(»i,X,Y):: IF (Y>28 AND 

Y<5B)OR(Y>92 AND Y< 120) OR t Y>156 AND Y< 1 
83)DR(Y<5)THEN GOTO 1290 ELSE RETURN 
670 BO NUS= BONUS - 1 :: IF BONUS10 THEN BON 
US=0 : : GOTO 690 

680 TPS-TPS+I M IF TPS=5 THEN CALL HCHA 
R(3,W,12B)i: W=W*I :: TPS-0 
690 RETURN 

700 CALL PATTERN(«1,B4) :: CALL MOTION(»l 
,0,10>:i CALL KEY ( 1 ,K,S) : : IF K-18 THEN 
GOSUB 1040 

710 CALL PATTERNS 1,80).-: RETURN 
720 CALL PATTERNIII1.76):: CALL MOT ION (HI 
,0,-10):i CALL KEY(l,K,S)t: IF K=18 THEN 

GOSUB 1040 
730 CALL PATTERN<«1,72>:: RETURN 
740 CALL rlOTION(m,0,0):: CALL COLOR (»I, 

730 FOR 1 = 1 TO lO :: CALL PATTERNOI , 84) 

:: CALL PATTERN (»1 , 76) : : CALL PATTERNI»1 

,72):: CALL PATTERN (HI ,80) .- : NEXT I 

760 FOR 1-1 TO 6 : : CALL SOUND (-60, BB0,O 

):: CALL SOUND (-60, 770, 0) : : CALL SOUND(- 

60,660,0): : NEXT I 

770 CALL COLOR (»1, 16): : CALL PATTERN (*1, 

136):: CALL MOT ION (Ml , -4,0) 

780 DATA 750, 117, 750,117, 183,117,538, 117 

,750, 139,183,131,558, 131, 183,117,538, 117 

,300, 110,1000, 117,0,0 

790 RESTORE 780 

80O READ DU.NO :: IF DU=0 THEN 810 ELSE 

CALL S0UND(DU,NO,0)i: GOTO BOO 

8IO CALL DELSPRITE(ALL): : IF VIE-2 THEN 

1710 ELSE VIE-VIEtl 

820 ON VIE GOTO 830, 840 

830 FOR 1=22 TO 23 :: CALL HCHAR ( I ,8, 32, 

2): : NEXT I : : GOTO 850 

840 FOR 1=22 TO 23 :: CALL HCHAR ( I ,6,32, 

2): : NEXT I : : GOTO 850 

850 CALL 5PRITE("I, 80, 16,86,10) :: RETURN 

860 DISPLAY AT (21 , 15) BEEP SIZE (5) : "bonun 

•' :: DISPLAY AT (22, I3)SI ZE (3) : " " II 

DISPLAY AT(23,13)SIZE(5) : BONUS 
870 SC=SC*100 :: SC-SC+BONUS . : : GOSUB 19 
00 

8BO FOR 1=1 lO TO 990 STEP 50 :: CALL SOU 
NDCIOO, I.O):i NEXT I 

890 FDR A=2I TO 23 STEP 2 :: DISPLAY ATI 
A, 15>s:ZE(5)s"?>?>?" :: NEXT A :: DISPLA 
Y AT(22, I5)SIZE(3):->7>7>" :: CALL DELSP 
RITE (ALL) 
900 TB-TB+1 

910 ON TB GOTO 620,920,1150,1300,1450 
920 CALL SPRITE(«l,BO, 16,86, lO, ■2,36,11, 
124,43,«3,36,11, 124, 109) 

930 CALL SPRITE(K4,36, 1 1, 124, 173, »3, 68, 2 
, 108,44) 

940 CALL SPRITE("6,68,2, JOB, 108, *7, 68, 2, 
10B, 172) 
950 TB-2 
960 B0NUS=10O :: CALL HCHAR (3,9, 40, 20) : : 

TPS-0 : t W-9 
970 CALL POSITION(»l,X,Y): : CALL LOCATE! 
»1,86,Y):: CALL JOYST ( 1 ,DX, DY) : : CALL KE 
Y(1,K,S):: IF K=18 THEN GOSUB 1040 : : GO 
TO 990 
9BO IF DX-4 THEN GOSUB 700 ELSE IF DX— 4 

THEN GOSUB 720 
990 GOSUB 670 II CALL MOTION ("1 ,0,0) 1 1 G 
OSUB 660 
10O0 IF COUP-5 THEN CDUP-1 ELSE COUP=CDU 

1010 ON COUP GOTO 1020,1020,1020,1020,10 

30 

1020 CALL LOCATE(»5,92, 44,16,92, 10B.K7, 9 

2, 172) :i GOTO 970 

103O CALL L0CATE(«3, 10B,44,«6, lOB, 108, »7 

. lOB. 172):: GOTO 970 

1040 CALL SOUND (1 ,330,0) 

1030 FOR BB— 13 TO -9 

1060 CALL MOTION(»l,BB,DX«I.5): J CALL CO 

INC(«1,«5,20,C): : CALL COINC (•! , «6, 20,CO 

>:: CALL COINC (HI , »7, 20.COI ) : : CALL COIN 

C{»1, #2, 15, CHOC) 

1070 IF C — 1 OR CO--1 OR GDI— I OR CHOC' 

-1 THEN GOSUB 740 :: GOTO 910 

10BO NEXT BB :: CALL MOT ION I • 1 ,0,0) 

1090 CALL COINCC»l,"B, 10, COIN):: IF COIN 

—1 THEN L0=1 :: GOTO 1210 

1100 CALL POSITION(«l,X,Y>;: IF X<60 AND 

Y>216 AND Y<24B THEN B60 
1110 FOR BB-9 TO 13 

1120 CALL HOTION(41,BB,DX-1.5):: CALL CO 
INC(»1,»5,20,C):: CALL COINC (• 1 . »6,20, CO 
):i CALL C0INC(«l,»7,2O,C0I):: CALL COIN 
C(«I,*2, 15, CHOC) 

1130 IF C— I OR CO — 1 OR C0I--1 OK CHOC" 
-1 THEN GOSUB 740 :: GOTO 910 
1140 NEXT BB : : CALL MOTION(»l , 0,0) : t RE 
TURN 

1150 FOR 1-3 TO 19 :: CALL HCHARi I , 18, 32 
,3):: NEXT I :: DISPLAY AT (20, I61SIZE (3) 

1160 DISPLAY AT(3,14)SIZE!10) t-B-B-B-B-B 
C" II DISPLAY AT(6,l3)SIZEHO):"7>7>7>?> 
?>" II TB-3 

1170 CALL HCHAR13.15, 129) : I CALL HCHAR(6 
,25, 131) 

1180 CALL SPRITE(«B,92,2.49,IO4.i2,B0,4, 
B6,220,0,VIT.«1,80, 16,86, 10) : : CIT.LO-0 
1190 D0NU3-10O II CALL HCHAR( 3, 9, 40, 20) I 
I VV-9 I I TPB-O 

12O0 CALL POSITIONAL X,Y) it CALL LDCATE 
(■1 B6,Vl!t CALL JOVBTI I.DX.DY) 11 CALL f. 
EY(1,K,S)II IF K-18 AND LD-O THEN BOSUB 
1040 II OOTO 1230 

1210 CALL JOYST(I,DX,DY)II CALL KEVtl.K, 
8)11 IF K-18 AND LO-1 THEN GOSUB 1110 It 
LO-0 II GOTO 1230 
1220 IF DX-4 THEN GOSUB 700 ELSE IF DX-- 
4 THEN DOBUD 720 

1230 IF LO-1 THEN 1 240 ELSE CALL POSITIO 
N(»1,X,Y)II IF (Y(5)OR(Y>2B AND Y<58)OH( 
Y>92 AND Y<I83)THEN 1290 



SOLAR 

■IBBIIIM 

pilotage en 3D 

(parce que, jusqu'a present . Jos slmulat«uri de vol etaient trop compilqu#«) 



pilotage en temps reel 
et en 3D d'un vaisseau spatial. 

En plus des 4 cartes 

deja presentes dans le programme, 

vous pourrez redefinir 

tous les parametres du jeu, 

y compris les cartes. 

Cet avantage donne au jeu 

un nouvel interet a chaque partie. 

De plus, les tableaux que 

vous creez peuvent etre sauves 

sur cassette ou sur disquette. 

Fonctionnant indifferemment 

avec les manettes ou le clavier, 

ce jeu vous demandera beaucoup 

de vigilance et de self-control. 

et toujours... 




LUHBR 
LflnDER 




Lunar Land** 2, jeu da p lotaga tfttttal r*f*rwc« par les pins anwds 
revendeurs de logldali Tl (tur cassette ou cttsquette*) 

De I'habilete et des reflexes vous seront necessatres pour franchir 
les 25 etapes du jeu. 

Un jeu que vous aurez plaisir a pousser chaque fois un peu plus loin. 
Des mois de jeu assures. Synth6tiseur de voix optionnel. 
Presentation en haute resolution. 



■aper, da atfajw auteur, an parconrs d*obstades en moto 
extraordinaire sur la lune (sur cassette ou disquette*) 

Imaginez-vous chevauchant votre moto. au milieu des crateres 

et des meteorites s'ecrasant devant vous. tout en ayant toujours 

un ceil sur votre reserve de carburant. Aux limites des possibilities 

du basic etendu : des paysages defilant sur 4 plans (scrolling). 

Synthetiseur de voix optionnef. Une musique exceptionnefle 

joueesur 3voies: le 5" concerto brandebourgeois de J.S. Bach! 



1 



^T* 8 * 



Les cassettes que nous vous proposons 
dans cette annonce ont le chargement accelere. 



Envoyez-moi : 

D la cassette Solar System (120 F) I D le Solar System sur disquette (170 F) 

□ la cassette Lunar Lander (100 F) □ le Lunar Lander 2+ Lunar 

D la cassette Lunar Jumper (120 F) I Jumper sur 1 disquette (220 F) 

* La version sur disquette necessite une extension dememoire. Les versions sur cassette ne 
necessitent que le basic etendu (necessaire aussi pour la disquette) 



Nom 

Adresse postale . 

Ci-joint un cheque de 

les eurocheques sont acceptes). 



. Prenom _ 



. a I'ordre d'Epsilon Software (les mandats et 



^psilon Software 

72. RUE DES LANDES - 78400 CHATOU 



1240 CALL MOTIONiai.O.O) t I CALL C0INC(H1 

,•2, 20, On IF C— 1 THEN GOSUB 740 1: GO 

TO 910 ELSE GOSUB 670 

1230 IF CIT-16 THEN CIT-1 ELSE CIT-CITM 

l2t.O ON CIT GOTO 1270,1270,1270,1270,127 

0,1270,1270, 1270, 12B0, 1280,1280,1280,128 

O, I2SO, 1280, I2BO 

1270 CALL POSITIONieo.V.W) t : N-N*8 tl CA 

LL LOCATE(«B,V,W>:; IF LO-1 T)CN CALL LO 

CAT£(ttl,33,M)ii OOTO 1210 ELSE 1200 

1280 CALL POSITIONED. V.WIi t M-H-0 It CA 

LL LOCATE(«O.V,W)ii IF LO= 1 THEN CALL LO 

CATECK1,33,U) 11 GOTO 1210 ELSE 1200 

1290 CALL POSITION(«l,X.Y)tt IF X>120 TH 

EN CALL HOTIDN(H.O.O): : GOStIO 740 t: GO 

TO 910 ELSE CALL MOT ION(«t , 30, O) I I GOTO 

1290 

IJOO CALL ICHAHC5, 15,32, II) t I CALL HCMAR 
(fa, 13, 32, I I I 11 FOR A-15 TO 19 it CALL ItC 
HAR(A,7,32,19)it NEXT A 

1310 DISPLAY AT(20.3)SUE(I9)i--B-B-B-B- 
P-D-D-B-B-" 1 I TB-4 

1 -,'11 iron m in 11 iai ,uu, \i,,nr., }•>.**. r.'4, ■ 
, 1 1 7, 36, •2,88, 4. Oi, 200.0, VIT) 11 nCRJV, TOD 
T-0 

1330 BONUS- I OO II CALL HCHAR ( 3. 9, 40, 20) I 
I W-7 I I IPS-O 

1340 call rnsiTioNiei.x.vitt call locail 

'"1 .11'.. VI : ;■ CALL JOY3T(l,l)X,DV)i t CALL V. 



EY(I,K.S)II IF K-18 THEN GOSUB 1040 11 O. 
OTO 13AO 

13SO IF DX-4 THEN GOSUB 700 ELSE IF DX- - 
4 THEN GOSUB 720 

13i0 CALL PO3ITI0N(4t,X,Y)lt IF Y>70 AND 
V<183 THEN 1370 ELBE TOUT-O 11 GOTO 159 



CALL coinc:i«i 



TIKN I 



ro 910 

1380 CALL COINC(«l,»4,3O,C0)i 1 IF C0--1 

nCN TCHIl-l tl GO10 1400 ELSE 1290 

1390 CALL MOTION t*l,O t O> tl CALL COINC (tl 

,•2, 20, CODi I IF COt — I THEN BOBUB "■> I 

1 GOTO 9 IO 

14 OO GOSUU 6 70 

1410 IF MOUV-14 TICN MOUV-I El SE NOW -HO 

UV*1 



30, I 



1440, 1 



40, I 440 

I430 CALL P0SITH)N(i4.X 
■ I CALL I 0CAtE(l4,<X. YV 
N 1340 WLM CAII KICATI 
1340 



SuHepaoe 16 



CHENILLE 



MZ80 



Amis joueurs, £ vos reflexes! Et £ voire clavier, avant 
que de pouvoir sentir voire rythme cardiaque s'accelerei 
au fur et a mesure des parties que vous jouerez. 

Philippe JOUHEN 

Mode d'emptoi inclus dans le programme, sauf pour la commande 
M qui vous permertra de changer le niveau de difficulte entre 2 par- 
lies. 




->E[- ,iiti.. l ia(l«iirt*(ili>M[I«t 

2 REn * 

3 REn * CHENILLE 

4 REH * PH.JOUEN 

5 REO * 
B »En *******4*tiiJ,****i*il**********: 

? GOTOseee 

8 REP ****** BOUCLE DU JEU ******* 

s po?<En,fl:pOKEn*i,e 

IB USRCS3 

15 G=PEEKCS-I ) 



524 IFCCJ1 = 133-'CJ1 = ISJ)*CK=12JGOTD520 

525 IFCJl=193*CK=12}G0T0528 

526 IFCCJI-133+tJ!-l8J3*tK*»1 I DG0T0528 
538 IFCPEEKt-UOBJ-KPEEKCJ + l 3 O0) + (PEEK( 
J»4e3<>8]TCPEEKCJ-f1l JO0JGOTOS20 

548 PDKEJ. 208 ^POKE J rl,2B8 

558 J=jTiE;POKEJ,20B:POKEJ»l,288 

568 NEXT 

565 P0KE0t13i|2±4B,?1 

578 Pn=20*N->ia:paRi = lTOPn 

588 JI^INTC37*RNDCI J3t1 :K=JNTC 1 *23*RN0£ I 



382 HS=US;F0RI=IT018 

384 POKE5?347,0:FORJ=ITO4B:nE><I 

386 P0KE5234?, 1 :F0RJ=1 T04B .'NEXT 

388 NEXT 

330 PRINT"B8a nElLLEUR SCORE", INT(HS) 

335 IFHS=USGOTOIBI0 

1080 PRINT"flfl Uoire SCORE" , IMTCUS ) 

1018 U=B 

1828 PRINT"BBBBBNouve I I* pari I etD^NJ" 

1038 GETRi-iFR*--' C.0T01B3B 

1848 IFRt = 'rTGOSUB1888a:GOTO5508 

1850 IF1+CR*=' , 0'")TMENPRINT"B" ; :ENT1 

1060 L=0-GOTOS510 

4393 REH **4***INITIALISPTI0N 

50BB L1HIT23B75 

5010 F0RI=IT013 

5020 REC»DK:P0KE24555tI,K 

5030 NEXT 

5840 n=233B5:S=24S56:H=24563 

5058 DftTMBS, 27, 0,50,235,35, 281 

5060 DflTAl , 140,82, 17,233,35,33,231 ,95,23 

7, 184,201 



5250 PRJNT'Xoc d. P e>~.i poetibl-f.' 
5268 PRJNT:PRINT'PTTENTIDN:Oani c» jard. 

5278 PRINT"d«* choj»p'.srwe uen.iwux <*.'• 

1 le dolt' 

528B PRlKT"*w.t*r Cd« **** « I 1« r* P*«* 

5298 PRINT"i*ur* ou t« «n9«r «II* ***•). 

5388 PRINT :PRINT" Ouand touts* 1*1 po**« 

es d'un jar-din '" 

5318 PRINT"'ont «!• d«wDr«t,vou« passtz 

5328 PRiNT-auir-* ou ; I y a 28 porw«es d« 
plus.ma.s" 



5330 PRINT" 



ch oopisn 



5335 PRINT :PRlNTTPSt30);-'P«: 
5337 GETR«MFR«='"G0T05337 
5348 PRINT :PRINT"BI I tyitll 



1? IFG=BG0T06B 




)) 




5878 Ci=— 1 Chen! 1 le 


" :U*= 


5350 PRINT"0 le plus dor 


a 3 le plus %\m 


18 REn **** DIRECTIONS 


585 J=0*J1*K*4B 




"HBSBSB8B3BBEBB" 




pie Cces" 




20 IFG=49TNENC-B:0— 


:GOTO60 


530 IFPEEKCJ3O0GOTO580 


5088 PRlNT"BSBPSBBE10S9aB 




5360 PRINT-nlueaux (oni 


jonderet pour le 


33 IFG-58TnEnC=0:D-I 


GOTO60 


600 P0KEJ,72:NEXT 




5838 FORI=lTO25:PRINT"HHD";TflB[40-I);niU* 


high score" 




48 IFG=48TnEnC=1 :0=B 


G0T06B 


610 C=0;D=-1 




CC*,I,1) 




5370 PRINT :PR1NT" Let t 




50 IFG=5?TNENC=-| :D=0 


620 A= 19:8= 1 2 




5100 FORJ=1TO100-NEXT =NEXT 


dorneni let" 




60 R=AtC:B=BTD 




64B T=ri:P=B 




5110 FORI=1T01 1 ^PRINT-BO"; 


5380 PRINT ■Vouvenenlt 


T-l r*" 


65 U=PEEKCT3 :U=PEEKCT 


r]3 


700 FORI=8TO33:POK£O-rI,2B8:POKEO+I*24*40 


5128 FORJ'ITOI :PRINT"B- 


:NEXT 


5398 PRINT :PRINT:PRINT"P 


S. -t\ chaque po« 


80 IFPEEKCO*fl*10*B5=0GOTOl20 


,208:NEXT 




5138 FORJ=1TOI :PRINTTPBC 153 ;riID*CC*,J , 1 1 


r.e la chenl 1 le t'asran-" 




30 IFPEEKCOrB*B*403O?2GOTO900 


210 FORj=lTO23:POKEO*4B*J,28B:POKEOt40*J 


:NEXT 




5400 PRINT"d: de 3 e 1 e re 


■<ii.L'e>plot Ion 


188 L=L+3:P=Pt1 :U=Ut 


:PRINT , 'B , ';U*;U 


'33,288:NEXT 




5140 PRINTTPBC153 ;RIGNT«[Ci, 25-1 J 


demograph I-" ; 




118 IFP=PHTHENN=N-H :GOTOS00 


720 PRIMT'"B ,r ;Ui;U 




5150 FORJ=1T038:NEXT 




5410 PRINT"sue etl a era 


ndrc. ' 


120 IFLO0TM£NL=L-1 ^7 


=T*2;GOTOI30 


738 GOTOB 




5160 NEXT 




5420 PRINT :PRINT" Let T7 


sonL let porr.es 


125 POKEOrllr4B±U,0 




388 ^USIC"03R1G2J^E5'■ 


5170 INPUr'BB Pre 


entaiiop ? " ;R* 






130 POKEOrp.rB*4B,71 




918 F0R]=TT0riSTEP- 


2 


51B8 iFtutR*=-crm[ 1' 


R*="N")3GOTO5170 


5430 PRINT" Let 70 


et charplsont" 


110 USRCM3 




328 U=PEEKm :U=PEEKCIf 13 


5138 IFR«="N"G0T0S5BB 




5500 GOSUBI0800:REn NIUEPUX? 


150 F0RI=1T0Y-3*N:NEXT 


338 POKEO+UtU*40,207 


5200 PRINT-BBBB Ch 


nllle" 


5510 O=53248:N=B:GOTOS00 




160 GOT03 




948 F0RJ=IT0Y-3*H 


NEXT 


5218 PRINT SPRINT SPRINT 




10800 REn"iNIUEAUX7 




433 REP**t±* CONSTRUCTION DES NIUEflUX 


358 NEXT 




5220 PRINT" Uom P 1 1 ot 


2 une cheni lied 


18005 irNS<>8TNENPRINT"B 








368 PRINr'BBOHSOBBBBBCRASHfflBlBaretour «" 


am un jar-" ; 




10010 INPUT "BBBBNiv/oat-y 


[0,93 ? " ;v 


510 F0RI=lT0StN 








5230 PRINT"din.C«He cH«n!ll« «• P-ourrie 


18028 TMNTCT] 




528 J1=1NTC36*RN0C1 33 


»1 :K=IHTC 1»23*RHDC1 debui" 




de por-'f '. . " ', 




10030 lFCT<0jTtT>3JGOTOlB018 


13 




378 US=flBSCCltLJ-T 


|0VCI*U+T718)3*U 


5248 PRINT" Uoire bui eel de lui raire 


10040 T=T*1B 




523 J=OrJlr40*K 




380 IFHS>-USG0TD33B 


aualer le" 




10050 RETURN 




I Suite de la page 4 
>K NIMBUS 


216 X*Y? 


267 CLA 


318 -HORT- 


3«9 » 


428 AOFF 


471 RCL 88 


522 CTO 15 


217 GTO 17 


268 ARCL 88 


319 ARCL 11 


378 ST- 81 


421 -0- 


472 X=V> 


523 -TROP HAUT- 




218«LBL 23 


269 -E " 


328 AVIEN 


371 RCL 81 


422 ASTO X 


473 -SALLE 4" 


524 AVIEU 


168 ASTO 98 


219 CLA 


278 ARCL 13 


321 BEEP 


372 X<=9? 


423 CLA 


474 8 


525 TOHE 8 


169 GTO 1! 


229 ARCL 88 


271 -h EST" 


322 PSE 


373 GTO 95 


424 RTN 


475 RCL 89 


526 PSE 


178H& 82 


221 * " 


272 AVIEN 


323 GTO 82 


374 GTO 92 


425«LBL A 


476 X=Y? 


527 GTO 16 


171 CLO 


222 ARCL 13 


273 PSE 


3244LBL 17 


375«LBL 85 


426 XEO G 


477 -LA80RATOIRE- 


528«LBL 15 


172 -PtV:" 


223 -p VOUS A- 


274 -TOUCHE- 


325 CLA 


376 -VOUS ETES HORT" 


427 RCL 12 


478 RCL 88 


529 -TROP BAS- 


173 ARCL 81 


224 flVIEH 


275 ARCL 11 


326 -TENTATIVE DE FU- 


377 AVIEU 


428 28 


479 X=8? 


539 AVIEN 


174 AVIEU 


225 TONE 3 


276 AVIEU 


327 -HTE- 


378 BEEP 


429 • 


488 -ENTREE- 


531 TOHE 9 


175 PSE 


226 TOW 9 


277 BEEP 


328 AVIEU 


379 PSE 


438 INT 


481 RCL 88 


532 PSE 


176 "SEPT 


227 PSE 


278 PSE 


329 TOHE 9 


388 "VOUS ALLEZ SERV- 


431 1 


482 9 


533 GTO 16 


177 PROWT 


228 XEO A 


279 XEO B 


338 PSE 


381 -HR- 


432 * 


483 X=Y? 


534»LBL C 


178 STO 95 


229 18 


288 RCL 82 


331 XEO A 


382 AVIEN 


433 STO 82 


484 GTO E 


535 RCL 12 


179 UBS 


239 RCL 82 


281 ST- 83 


332 18 


383 TOHE 8 


434 RTN 


485 AVIEN 


536 9821 


189 1 


231 IKY? 


282 RCL 83 


333 RCL 92 


384 PSE 


435»LBL B 


486 BEEP 


537 • 


181 X«V 


232 GTO 18 


283 X<=9' 


334 X<V 


385 "DE C08AYE A NIIC 


436 XES C 


487 PSE 


538 ,211327 


182 GTO 82 


233 -TOUCHE- 


284 GTO 22 


335 GTO 24 


386 -PBUS- 


437 RCL 12 


488 RTN 


539 ♦ 


183 RCL 95 


234 AVIEU 


285 -PW=- 


336 -PEUSSITE- 


387 TOHE 7 


438 6 


489»LBL F 


548 FRC 


184 ST* 99 


235 TOHE 6 


286 ARCL 83 


337 AVIEN 


388 PROKPT 


439 » 


499 XEO G 


541 STO 12 


185 RCL 99 


236 PSE 


287 AVIEN 


338 TONE 8 


389«LBL 25 


448 INT 


491 RCL 12 


542 RTN 


186 X<9' 


237 XEO C 


288 PSE 


339 PSE 


398 9 


441 1 


492 199 


543 .END. 


187 XEO 12 


238 RCL 12 


289 GTO 23 


349 XEO G 


391 STO 88 


442 ♦ 


493 » 




188 XEO 1 


239 RCL 84 


29«»LBL 28 


341 RCL 12 


392 RTN 


443 STO 82 


494 INT 


■ 


189 CTO 13 


249 « 


291 -VOUS L AVEZ" 


342 3 


393»LBL F 


444 RTH 


495 1 




198«LBL 14 


241 INT 


292 AVIEN 


343 « 


394 RCL 89 


445«LBL D 


496 « 




191 "BRAVO- 


242 1 


293 PSE 


344 INT 


395 STO Y 


446 1 


497 STO 82 




192 flVIEU 


243* 


294 -LOUPE- 


345 1 


396 -Utt- 


447 RCL 88 


498 "LE COFFRE-FORT- 




193 PSE 


244 ST- 81 


295 AVIEN 


346 ♦ 


397 STO X 


448 X=V 


499 AVIEN 




194 -VOUS AVEZ LES D" 


245 RCL 91 


296 TOHE 7 


347 ST- 98 


398 CLA 


449 "COULOIR 1" 


599 BEEP 




195 -1-OCUHEHTS- 


246 M*t! 


297 TOHE 9 


348 RCl 89 


399 X=Y? 


458 2 


581 PSE 


3 ?<~\ \ 


196 AVIEU 


247 GTO 95 


298 PSE 


349 X<8? 


488 CTO 21 


451 RCL 88 


582»LBL 16 


\\>Jtl 


197 PSE 


248 "PDV:- 


299 -COHTIHUEZ-VOUS- 
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Bernard AUDOURENC, enseignant a Castres, nous envoie cette semaine un spectaculaire programme de drapeaux pour T07 ou 
M05 : pas moins de 1 19 drapeaux a reconnaitre, 200 heures de travail et un flacon entier de gouttes pour les yeux ! Gageons que 
meme les "profs de geo" dotes dune excellente memoire auront droit a quelques fautes I 



DRAPEAU 

sur 107 et M05 



Le programme de celte se- 


Les plus jolis : Mongolie. Alba- 


lande el Cole d'ivoire. (Pas de 


tan. doute sur le drapeau 


maine. facile de place, n a 


nie el Philippines. 


couleur orange) 


Ceux que ie nai pu 'aire a re- 


qu une vmglaine de drapeaux 


Les plus dilficiles : Algene et 


Les douteux ; Haule Volta qui 


gret : Arabie saoudite. Ceylan. 


mais il fonctionne normale- 


Canada. 


a change de nom et de dra- 


Portugal. MexiQue. Coree du 


ment. La suite des 119 dra- 


Les plus prestigieux 


peau. Seychelles qui a change 


sud. Iran. Zambie ei G 


peaux passera la semaine pro- 


Royaume-Uni. Etats-Unis et 


de drapeau. lies du cap vert 


equatonale. (NDRL : a vos cla- 


chaine. Les commenlaires de 


Malaisie. 


qui onl un projet d union avec 


viers ') 


Bernard AUDOURENC : 


Les impossibles sur T07 : Ir- 


la Gumee-Bissau. L Atghanis- 
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US.38>-'57-au3.33 :^1NE' IpB-avS-Bfl'-' 193 
-"l'3.33/:MEXT 
3639 COLORE :F0Pn;-8TO56 
38*9 LIME.79.33'- JJ-NZ.9 
3858 LINE'98,33-' ;j6-k:..3 
3B69 LINE'78.5*.-- 14-M2.9S- 
3B78 LINE'99.53>-'l*6-tt2.39' 
3338 NEXT 
3899 F0P2EL-BT029 
3188 LIME'*9.3*'-'0.5-ZEL' 
3118 LINE'.*9.52'-"3. •:■■:£. 
3129 LINE'111,34-- 169.5-ZEL ■ 
313B LIME'111.52'-' 168.32»;EL' 
31*9 NEXT 

3269 B0XrU61.B---31?.B9'.C:p'V =■ 
319,17*>,C 

3236 IFW«UJlF"i :E-:H£N;.r.'L-B.3:CIE'-B: 
»aV2e:C0-88:LD»l3i:G0SUB*33lS0L-e.3:Bav 
»lBlC0-24eitr>=3«':'-:-VJE'*55!LE'>|J4!C0sU645 
5:C^■l98:L^-73:;[l;uF^55:L^.2?8!Lt>■6elG0S 
UB433 

3268 iFn*--.-H'iTc-L::---:-Eu .f-iii.Tj. -.; 

69, 189 j.-S:C0LOR7:COSiJP9 1 8:>.E-23Sf YE-33: 

G0SU6338 

3388 PETURM 

3969 CLS:SCREEM?.0.5:F0BI-n0MB 

3978 PEO&A.B.C.NI.S 

3989 L0CATE8.8.B:C0SUB3868 

4889 LO«IE8.22,l!COl.OP7,0:PRIMlMI:- 

li 

4818 oi-inbutiu 'inexii 
*898 ;cpeen7.8.:.:cl:-.-petoc>i 

4598 JJ-BIF0PI-110NBiPEaD».B.C.NI.S 
*5IB LOCaIEB,8.B:C0SUB398e 
4329 L0CaiEe.22.1iC0L0P3.8 

4336 input;* 

'5-b ;f:i^xnr-FF.L::-Tf:.'..-.:^...-...- ; '; 

NT-BPaVO •-•JJ>jj'liGOT0*5b8 



■•«!■(■; ':GCM*2*-:i:' [ -L> 



«343 IFLCFTB4Z9.4 

23.22. |:C0L0R6,8'I . 
L':-:aTEii.23:PPINtN»:G0TIJ*56P 



THEMLOC-.TE 























COT043 


•8 
















5IPRIMT 


■ , ; - 




















.0CaTE3, I9i 




ia». INPUT* 






































4718 


.OColt5'.3:P 


































FOR I-1T0MB 


LOCATE* 


9.91GESIPPIN 





flTIENCE- 

4739 REaDft,B,C,N*,5 

47*8 IfNKCMX* 0PLErn<N*,6,-LCFTHCMXt, 

e iTMENf.0SOB5B89lCOLtiR7.BILDCaiE8»221PRI|i 



89ELSEREIUPM 

4799 NEXT I 

*8B8 CL5iLDCaiE5. tBSPRlNT'DPAI'CAII HUN PR 

OGRBNtir. vtulLLtr ralPE UN aoTRE CMOIX S 

.v.p.-iLDcarEie.i8"PPiNT-ftppoYE2 9up y« 



HI.1G0T04789 



•i:f ■■ !:r.r>-,llfi'.>-'i>::--|: 

pbi, riLocaiE7,ii' 

I'll ■ IHPlBB8:MExr 



4S99 ' ••• TIN 
*9B8 LUCaTEB.B, 

'-IB9!YE-9r 

COLOR*, 3iPR 

*99! C0LCP'-::-:r mt.;>' UOJ38I LOC8TE 

LrjP*.6!PPIMT'I*:rORF-ITOI06etMCXT 

4982 COLOR2iXE-193lf.OSUB338iL0CflTE32.lll 

C(iLnP4,2:PPINr-N-:rt'pr-i T<!i699tNEXT 

4920 ENO 

3888 CLS 

3186 ITS-ITHEMbBBBIPETORN 

52B9 irS-2THEN7968: PETURN 

3388 irS-3THEN88B8iRElUPM 

3499 irs«4THEM9999iREIUPN 

3436 lFS-5IHEN63B8:PriURM 

'.' Lfi [I :,-,-, 1H( *i.'M»:l,-\ TIIPN 

5538 IFS>7THENB399iRETURN 

356B I rs-8THEM84eei RETURN 

3686 IfS«9THEM93B9:RETURM 

3636 IFS-1BTHEX6483IRE10R11 

MM 3CPE£M7,B,3 

6983 im«-*BENIN"!MrN(-M:GO' ! .UB2e*tCD'T099 



OT 09936 

6915 1FBI.-L18EP1 
et56:G0T0993B 
6828 IFM.-8LB4HlE-'-«;«SCREEBfl,B.3iaTTt» 
l.l:L0CflTEI6,9:P*]NTaLBI*iL0CdTEI6.li:P» 
!NTaLB2tlL0Ci-Tri6.[3iPBIMTai.B3*:L0CaT(l6 
-13:PRIMTaLB4* 

6921 [mi.'aLBaNIE-THtKtOLOROLII*. !*?.» 
■ -U38,26>iLIME< 1*3.26 -U IX-' 133.27.il 
INE-*138.39>:i.IltE-tl62.3ti.LI*«-.|73, 3V 
:LIW-< 169,27. 1LIME-' I 79.26>:LIW-. I8»,*- 
6iLI«-tl62.flHCOT099M 
6838 ir»»*MO«C0LIE*lHENCOSue23##:GOI<I*9 
58 

6830 B0xri6.9>-'I86.17*',fl 
6188 IFMf-PEBOU*i"E" aTTRBi,|iC(H.0»2iL0 
CaTEI7,91PRIMTCBI>3':L0CaTC17,ll!PB!NTCB 
I.7iiL0C8TE21.9:PRINTC»«- l6'UDC8Tt2l. 1 1 
:P&IMTCR*i9>:C0LOR*!lOCATt.9.9:PRl«TtBt. 
l2i:COL0RML0CaT£l'*.lliPRINTtRl.|JiiaiT» 
BB.6 

6268 80>;r.2l3,6>--319.I7«>,C 
6282 IFNt.-pMaNP-'T-.tNi.OCflTEl'-, M.-aTtRpi 
.i:C0LO r «.3:PP|Ml-B- 

6243 :rNt* a BARBABC"'HCHE0l0*f6IBOxri!3e,» 
2 '-< 16*. 13* )>B0xru**.83>-( 1 76,91 >:FOBBa 
R-6 TO HHINE. l23.52'-i I23-Ba».3*-1LI"1 
■ l?6.32>-( I 95 -Pit . '.. ■ :■£ v;:j P8C'£-6 TO 7 
:LINEU23«BDE,5t. -■ |4..&t>r,<M >:LI«1 ■ 1-5 
BDI.361-.176-BDE.9I uKXl 
62*6 jrN>«-BARBaPC"iH£» rOPBaRD-6 10 ."61 
LINE. 166. *2'-. i:.8-eaRD.32>ip*EKT 
6236 COI0993B 

63B6 IfM*--SEWECAl*I«ENE>2iC0SUB3»9 
6382 lFNi«-canlBCUNMWNC-3!tDSUB3#9 
6 38* lFN*.'vHTNafl-THEN£-3iG0SUB966iG05O 
B323 

9936 G0SUB375iPLay*ro*!aTTPe8. 81 PEIUPN 
1868B Dala*.7.4.HC»C'URaS.B.:.i. I. TUMI All 
. 16.4,7, 1, Banana. 3. ;,i. 5.1 LES lONf.a.8 
16IB8 DaTa *. 3. 4.pa6Bar-E, 1 . 7. 3.9. TANr..N! 
E.e.7.1,l.TUP0lilt.lO.*.3.1.ICHaD.l 
1828B Dal» l.*.7.ETalS-UNIS,te.l.:.»,l.UX 
EnB0URG.2.*,7.*. ISKACLrBi l.4,6,'.u;i CCICM 

1936B DaTa l,3,2.GnaNa.6,2.7,-...i..i i :i . : 
9.4.7,4. SaLvaDDP, 2. '.v.i-.f INL"N['1 . » 
10358 DATai.7,*,aUS!PALlC.9.3,*.2.ILES S 
HL0ri0N,5.1.9, -3.ANT1CUA.3 

U'it-v uaia 4,7.-1, iinn.ii.iv. :-. I . - v.i-: 

E. 2. 3. 2, -3. NAUP ITaM IE. 19.1. 3.. '.PHaiiDa.] 

19399 OaiO 7,2,7,PaiISTflN.19.1.9,2.NAiaN 

1,2,2, l,2,naR0C,2, 1.7, 1.C.WDA, 16 

19686 Ortia 1,7.2. INDE.. -.2.3.1. ^.tMCGai. 3. 

*.4.*.CHILI,l.2.7.B,CntBaTS aRARES IMIBi 

2 

167B8 Dflla 6,7,6,GPCCE,B,2,7. I, ITALIC. 1. 

3.4.1. VENEZUELA. 6. 7.2, I.BULCflRIE.2 

1673B DftTAI. 7.4.M0HVII LI --'I l.aNDE,9, 1,4.1 



.RES SAN0A,5.8.3, l.0UGaMt>(..r.. 1 



■QUEST ,2 

16S36 DATA 3, I.4.H0NCOLIE.I.7. l,«,l*n«l I 

,0.7, 1.2, OMAN, 2, 1,4, 7. HAL a I SIE. 18 

169B6 DATA 9, 1.2. J0P0nNI£.7,*,7.l.rPANCr 

.l,7,l,6,lRI«tTE El llilia'.n.K. I. .1. 1,1 '.I'.'.i, 

ME, 3 

18936 DATA l,*,7,NrPAL,2, 7, l,?,C0n0B['-, I 

«.9,l.3,aLBAN1[,1, 



;1936 DATA 2,l,3.CanCROUN.3,2.3.4.GflBnM. 

M.7.»,SrtME,6.7.4.5.l. I REP I a. i 

, 1 166 DalA 1.7, ?,f.fc«riwn . 4. i . i, . ■■. i.m ii I 



11366 DATA I,7,4,MOBVtCE,*,7.2. I.LVBU.B 

,3, l.'l,CM1ME.il.B.7.,'.i»nN5rEI,2 

IIJ39 DAIA 1, ;..". NIGER. 2,1,1, I, SUISSE. B, 

3.3,4,C0LOrT9I£,3,1,*,?,PORTD-H|C0.7 

11*99 DATA 4,3, I.IUEM .4.4,B.*.naHAna5,7 

,2, I, 3. TOGO, 7, 1,3,2. BOL IV IE, 2 

11*36 DalA i,4,2,r,nrtliir..r. l.l.2.not>.iGa5f 

AB.3,4,7, l,BDYAUHr-liMI,9,2, ; 1 ,2,BENIK, I 
11386 DATA 4,4.1, LIECHTENSTEIN, J, 1,2, 6, 5 
0UDAN,7,*,?,4,GUATENflLA, 1,2, 3,8. .JrtndlOtir 



6916 IFi 



'*CMlLI-IHENE'7iG05UB288i! 



i ir.r.n n 



I. LAOS, 2, I. 

11636' DAI a' 3, l,J,CONG0,8,4,7,l,Y0UGOSLAV 

IE, 2, 7, l,-B,3IMGAP0UR. 16. 1, 7, 2, BURUNDI , 0. 

11768 DATA l,*,3,Iir NAURKI . .1, ^.4, I .TOP 

EE DU MOPO, 7, 1.7,3, BAHREIN, 8, 4,7.1, PM1LI 

PPINES.3 

11739 DATA 7,2,1, MALDIVES. 16,1,*,*, NAURU 

,2,2,l,2,'AtRlNAN,6.3,l,,-\GUINI I 111 W.I 
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CHEVAUCHEE FANTASTIQUE 



Lonchamp , vous connaissez? D'habitude, vous pariez 
sur un chevaL.Mais la. c'est vous le cheval! 

Frederic SOBIERAS 

Ce programme fonctionne sur le VIC 20 de base. II se compose de 

2 parties. 

La premiere donne I'explicalion du jeu et enregistre les caracteres. 



La deuxieme, est le jeu lui-meme. Elle ne se charge pas automati- 
quement. il vous faudra done appuyer sur les touches SHIFT et 
RUN/STOP apres la reinitialisation du VIC. 
Touches de commandes: 

F1 pour sauler les rochers. F3 pour sauter les barrieres et F5 pour 
sauter les Irons. 

Toujours dans la premiere partie du programme, vous pourrez veri- 
fier le bon enregistrement des caracteres graphiques grace a une 
portion de jeu. 



VIC 20 



1 REM FREDRIC SOBIERflJ 

2 REM LP. CHEVRUCHEE 

3 REM VIC 20 
10 GOSUB220 

20 POKE52.23 PQKE56.2S:CLR 

30 FORI=0TO393 : READA ■ P0KE7163+I . fl ! NEXT 

35 FORI=0TO?9;POKE7472+I-PEEKi:33152+I)-NEXT 

36 GOTO320 

40 DATA9, 0,0, 6,48, 48, 96. 233, 32, 31, 3- 3, 4, 1,0, 0,297, 248- 248, 246, 208, 16, 160, 64 

50 DATA9. 9, 0,0. 24, 24, ?6. 127. 48. 15.3.3-2.4,2,1,207,252.248,248,209,4,4.8 

60 DATA9, 8, 9, 8, 9, 24, 24. 96, 9, 120, 15, 15, 15. 27, 32, 64, 255, 143, 248, 249, 240. 12, 2,1 

70 DATA16. 24, 24. 69. 60, 126. 126. 126, 254, 255. 233, 255, 255. 254, 126.60 

80 DRTA56, 56, 56, 56- 56. 5<?. 124, 254, 255, 255. 255. 255. 255, 255. 255- 255 

90 DATA72.36, 147,79,63,25,249.63, 146, 164,201.242,252, 152, 159,252 

100 PBTR25I, 61. 228- 62. 79, 147, 37, 73, 223, 133,58,121,244,210,73,68 

110 DATR0.0.3.3.6. 15,15.15,0,0.120,120-96,254,242,120,63,92,156,48,64-64,64, 128 

120 DATR193. 57, 15, 15. 207, 45, 24. 9, 224, 252, 172, 160. 248, 252, 254, 119, 51, 24, 12, 2. 1.0, 

0,0 

139 DATA69, 68-24, 24, 24,24,24,24 

149 DATA0, 0,6. 1,2, 3, 3, 63, 0.0. 24. 40, 11, 251, 251. 255 

150 DRTR9. 0,0, 0,0, 0-93. 93. 73, 127, 28, 28, 20, 20, 20, 20 
160 DRTR0, 0,0. 0,0,0, 28, 28,8. 127,93-93-85.29-20,20 

179 DATA255- 68, 219, 63, 79, 147, 37, 73. 255, 60, 213. 249. 244. 218, 73, 68 

189 DATA0, 0,0, 0,0, 0,0, 0,9, 24, 62, 124, 254, 127, 126, 62 

190 DATA60,60,24,24,24,24,24,24 

200 DRTA240,248,246244,244,208. 193,203, 15,31 . 31 ,63 47, 12,8, 161 
216 PRTR239,207, 133.3, 1,8,28,63 
220 PR INT ":»**•**********• »«**•*"; 

239 PRINT"CHEvflUCHEE FRHTRSTIGUE"; 

240 PRIHT"»*****f ««*****♦****»**" 
250 PRINT-19 POINTS PRR OBSTACLE" 

269 PRINT-50 POINTS DE BONUS TOUT LES 10" 

270 PRINT-M1RIS Lfl DIFFICULTE ESTRUGMENTEE" 
280 PR I NT "TOUCHES DE COMMftNDE:" 
290 PRINT"*F1=SRUTE LES ROCHERS" 
300 PRINT-*F3=SRUTE LES BARRIERES" 
319 PRINT"F5=SAUT£ LES TR0U5" 

314 PRINT-naMMIBONNE CHANCE" 

315 RETURN 

329 FORA=1TO10000-N£XT 

330 PRINTS" 

340 PRINT-XHtHKMVMnnpRES LAM 
330 PRINT"l»ii*»*»IDu vie" 
360 PRINT"*»»ENREGISTRER Lfl" 
370 PRIHT"WMD£UXIEME PRRTIE" 
389 PRINT"»*WDU PROGRAMME " 

399 FORA=ITO5000-NEXT 

400 PRINT"n":P0KE36869,255 
418 F0RA=7944T07965- POKER, 12NEXT 
420 F0Rfl=38664T038683:POKEA,5-NEXT 
430 P0KE38623- - FORA= 3864 2T 03866 3 - POKEA, 9 : NEXT 

459 P0KE7983, 8+B : P0KE7924 , 1 +B = P0KE7925, 2+B 

460 B=B+3 : IFB=9THENB=0 

465 P0KE7943-C, 23 : P0KE7944-C, 32 ' C=C+1 : P0KE7944, 12 

479 FORA-1TO100-NEXT 

480 D*D*l:IFD=13THEN539 
490 GOTO450 

300 PRINT"n°-SVS64802 

170 Hl=37-H2=37:H3=37:CD=0:SC=0:W=0:Wl=0'W2=0:W3=0-W4=0-NB=0;PP=0:flfl=0;il=0 

130 PRINT":]" - F0KE36369 . 255 : F=0 0=33 = E=0 

190 POKE33525,7 F0KE;352S . 7 P0J-.E38547, 7 F0KE38548, 7 ;POKE7305, 13:POKE7806, 14 :F0KE 

7827,15 

200 P0KE7328. 16 : FORA=8T02 1 Pur E3378 1+fl, 5 • POKE38803+R, 5 ■ P0KE38325+A, 4 : NEXT 

210 F0Rfl=yTGo5 FoKE3SS4y+H, 5 FOKE3120+A. 12: NEXT 

220 FOKE38305+DB, ; POKE3S306+ED, : P0KE38327+BD, : P0KE33323+DD, : PGKE33734*DD,0: A 

=9 

225 FORK=0TO6 POKE3054^-., 12 ' FCiKEo076+K- 12 F0KESO3S+K, 12:POKE8910+K, 12-PCKE8032+K 
,12: NEXT 

226 FORK=0TO6 ■ POKE3377 4*K , 9 : F0KE33796+K . : P0KE388 1 3+K . : POKE33730+K . : P0KE38752+ 
K#9-NEXT 

227 POKE8077 , H 1 : POKE3079 , H2 ■ POKE8081 , H3 

223 FOPK^TuS FOr'E 2344 C-n ,0 fVrE^j:i^i + i\, ■ FuKE3Sb34+K,0:NEXT 

229 GOSUB5010 

230 GOSUB100O 
249 GOSUB2900 

245 GOSUBot^y ■ i;-n-;U£4'.?c.n3 ^ IFSO0THEN249 

259 GQTQ230 

1090 VB-PEEK<8107+DD) ^ IFVE01ANDVF04fiND\'B07ANDVB032AHDVB01 1THEN4949 



REINITIALISATION" 





1005 POKE3036+DD, 9*A ■ FOKE3107+BD, 1+A: P0KE6198+BD, 2+A 

1010 A=A*3IFA>6THENA=0 

1029 RETURN 

2099 IFRA=1THENRETURN 

200 1 IFD=0THENPOKE306 1 . 32 = P0KE8883 - 32 : POKES 1 85, 32 ' GOTO2030 

2003 POKE8875-D.9 P0KE8997-D- 10:POKE81 19-D* U 

2005 POKE8076-D , 32 : POKE8098-D, 32 : POKE8120-D , 32 

2010 D=D+1 .IFD=15THENB=0 

2929 RETURN a 

2939 IFPP=1THEHRB=1:D=-1 RETURN a 

2949 GOT02919 

3090 IFS=1THEH3040 

3905 IF3=2THEN3960 

3010 L=PEEK<203> 

3915 IFLO39AMTJL047ANDLO55THENRETURN 

3016 IF0=33AND<L=470PL=55>THENRETURN 

3017 IF0=34ANDCL=39QRL=55>THENR£TURN 
3910 IF0=35flnrj<L=390RL=47)THENRETURN 

3029 POKE3085+DD, 17:POKE80S6+DD,13:POKE8107+DD, 19:POKE8108+DD,32 

3039 3=1 : RETURN 

3040 P0KEB964*DD, 6 ! PQKE8835+DD , 7 : POKE8086+DD, 8 : POKE3 1 87+DD, 32 
3959 S=2" RETURN 

3969 P0KE3885+DD, 2 1 POKE8036+DD, 21 = POKE8108+DD, 22 -POKE8064+DD, 32 
3070 POKE80e5+DD,3i 

3030 5=0: RETURN 

4990 IFO=35THENPOKES195,32:GOTO4190 

4092 IFE=9THENIFD=90Rr=10RD=20RD=3THENRETURH 

4905 G=PEEK<3119-EJ:PCKE8119-E,0 

4986 I FEO0THENPOKE8 1 20-E , 32 : GOT 04008 

4087 POKE3105.32 

4998 IFGO32THEN4040 

4910 E=E+1 :iFE=15THENE=0:O=INT<RND(n»3)+33GOSUB5008 

4929 POKE8120.12 

4030 RETURN 

4849 POKES107+DD,32:POKE310S+DD,32 

4042 IFPP=1THEH4050 

4945 GOSUB2000-GQSUB2900 

4050 P0KE9 1 06+DD, '■ POKES 197+BB+DD, 24 : POKE81 08+BB+DD, 25 : POKE8085+DD . 32 " POKE8086+D 

D,32:BB=9 

4969 POKE7827,30:POKE7828,31 

4979 P0KE3937+DD. 26 : P0KE8199*BD. 27 : F0RM=1 TO308 : NEXT 

4989 POKE3037+DP . 28 : P0KE3189+DD, 23 ! F0RM= 1 TO300 ■ NEXT 

4999 P=P+i:IFP=8THENP=0:GOTO4209 
4095 GOTO4070 

4199 IFF=0THENIFD=0ORD=1ORD=2ORD=3THENRETURN 
4101 IFF=15THENP0KE3142-F,0*-1 :GOTO4104 
4192 IFF=16THEN4104 

4103 P0KE8141-F,0:IFFO9THENP0KE8142-F,0+l 

4104 IFF>0THENPOKE8143-F,12 

4185 G=PEEK';3142-F-22> ■ IFGO32ANDGOI2THENBB=22:O=32:POKE38849+DD,0:POKE38850+DD 

, 1 GOTO4040 

4110 F=F+1 :IFF=17THENF=6:0=INT<RHD(1)*3)+33:G03UB5989 

4129 RETURN 

4290 NB=NB+1 

4210 IFNB>9THEHH1=12:IFNB>1THENH2=12:IFNB>2THENH3=12:IFNB>3THEN4300 

4229 GOTO 188 

4399 PRINT":]" :P0KE36869, 249" GQTO6909 

5000 SC=SC+19 : W=W+1 : M4=W4+1 i IFW4=10THENW4=0 : W=U+5 i SC=SC+59 : GOSUB5100 
5910 IFH=19THENW=0:U1=H1*1 

5915 IFWl=10THENUl=0;W2=M2+i:iFW2=19THEN5030 

5020 GOTO5035 

5039 W2=0:W3=W3+1 : IFU3=10THENW3=9 

5035 IFW=15THEMW=5-Ul=Ul+i:G0T05Bia 

5940 POKEB033 , 3&HO P0KE8934, 38+W2 : P0KE8935,38+M1 ■ P0KE8936, 38+M POKE8037, 38 

5950. RETURN 

5190 DD=DD+2:POKE36873.15:POKE36375,230:FORTT=1TO109:N£XT:POKE36875,0 

5195 P0KE8934+DD, 32 ! P0KE8195+DD, 32 = POKE8106+DD, 32 

5119 POKE33303+DD,5:POKE33304+DD,5 : POKE38325+DD,4:POKE38826+DD,4:POKE38782*DD-5 

5115 IFDD>8THENPP=i:DD=0 

51 29 POKE33305+DD . 9 i POKE38806+DD - : P0KE38827+DD , : P0KE3B828+DD . ; P0KE38784*DD. 

5130 RETURN 

6009 PRINT"3TOinBin»»»r/0TRE SCORE: ";SC:IFSORCTHENRC=SC 

6010 PRINT"»FECORD fl BATTRE:";RC 

6020 PRINT-WBaammWDN RECOMMENCE? <0/N>" 

6030 GETA*IFflf-""THEN6038 

6949 IFR5="O"THEN170 

6959 IFA$="N"THENPRINT"n":END 

6060 G0T06939 ■ 



^ PRINCE 
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no li-li*i 



5320 


CALL 


MCHAJV(LI 


CI, 73) 


3330 


Z-IN1 


(20«RN0) 


1 


5110 


IF (Z 


>20MU< 


1=-1 THEN 5S30 




IF Z' 


6 THEM 5 


60 ELSE 3360 


5^60 


60T0 






5380 


IF <C 


1-COJ+fL 


= LI>=-:? THEN 20030 




CALL 


t-EV<5,K.S) 


34 OO 


IF t- 


BZ THEN 55O0 


3410 




6B THEN 


600 


3430 


IF K- 


&9 rHEH * 


700 


3430 


GOTO 






3300 


IF EC 


=■12 THEN 


5280 


5510 


CALL 


HCHAR ( L I 


CO, 32) 


3320 


CO=CC 








CALL 


IfCHAftlLI 


co. 53) 


3540 


GOTO 


5780 




3600 


IT C0=19 THEN 


5280 


5610 


CALL 


HCHfifitl. I 


C0.32* 


5620 


co-crjti 




5630 


CALL 


HCHAR «.] 


co, :. i> 


3640 


BOTO 


S2SO 




5700 


IF L 


LI r he h 




5710 


CALL 


MCMAR ( !. I 


C0,32> 




LI=L 


-I 




S7";i 


CALL 


HCHARIi I 


CO, 33) 


5740 


GOTO 






6OO0 


GOTO 








LALL 


CHAR 1 1 1 1" 


■00O0lC3E7F7f :r .'i ■ 


60O3 


CALL 


CHAR ! 1 1 Z 


"O00O3B7CFEI Em E" 




CALL 


CHAR (114 


« if ii of WO fOlOOOO" 


6007 


CALL 


CHAR! i is 


"FCFSFOEOCOSOOt 


60v8 


f.r-i (. 


COLDRUl 


/. 11 


MKW 


CALL 


H£HAT<<6, 


4. 1 \Z-' 


6010 


CAl_L 


MCHAfl(7, 


4, 1 Ml 


iOU 


CALL 


HCHAR (i. 


13. 1 13) 


M13 


CALL 


HCHAR 1 /. 


9. 1 1SJ 



6015 CALL HCHAR<5, 14.40,3) 

6016 CALL HCHARC6, 16,32,2) 

6017 CALL HCHAR(LI.C0,32) 

6018 CALL HCHAR (8, 14.32,3) 

6019 CALL VCHARI6, 16,32,2) 

6020 CALL SOUND (50, -7,0) 
6030 CALL HCHAR(L1,C1,I26) 
6040 CALL SOUND (50, -6.0) 
6OS0 CALL 50UND<50,-5,O> 
6060 CALL HCHAR(L1,C1,32) 
6070 GOTO 32000 

20000 CALL VCHAR(L1»1,C1,56,24-L1) 

20010 CALL S0UND(20, 500,0) 

2O02O IF C1=C0 THEN 20O30 ELSE 2O110 

20O30 CALL SDUND(30, -7.0) 

2OO70 CALL HCHAR (L I , CO, 126) 

200B0 CALL SD(JND(50. -5,0) 

2009O CALL SOUND ( 50, -6,0) 

20100 GOTO 30 

20110 IF CCl«C0)*ILl'=LI>'*-2 THEN 20030 

20120 CALL VCHARILl*l,CI.3r,2fl-Ll) 

20130 CALL SUUNfJ(20.BOo.O) 

2014O GOTD 9380 

320O0 CALL l-TYtO.K.S) 

32O10, IF S=0 THEN 32000 

32020 CALL CLEAR 

$2030 CALL CHAR!56, ■•003C2424'SC24243C"1 

32040 CALL CHAR (57. "O03E223C02O23E" ) 

3Z050 CALL CHARI4B, "O03C424242423C" I 

32060 CAU CHARtB0,"007C42427C40404") 

12160 fcw i-i t-d ir 

32170 CALL COLOR < 1 , 7, 1 ) 

32180 NEXT I 

32190 A»«STR*(PT8)V PTS" 

12200 i hi; I--I ID l.EN'A») 

122(0 MIL HCHAR<i;\9*I.A!3n<*J-.fi«(Al. I, 

32220 L'aj i BOUND 120* 700, 0)' 

32230 NEXT I 

32240 C>UI I rvio.i ,Gi 

52250 'F B*0 iHf.n 32240 

■:■:■(,■■ CALL CLI Ml | 



^ DIAMANTS 
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1440 CALL P0SITION<«4,XX,VV):: V¥=VV-16 
j: CALL L0CATE("4.XX,YY):i IF TOUT=0 THE 
N 1340 ELSE CALL LOCATE <ttl , B6.YV) i : GOTO 

1340 
1450 FDR 1=5 TO 8 : : CALL HCHAR( I , 30, 32, 
3):: NEXT I ;: DISPLAY AT ( IS, 4>3IZE C 10) I 
"-B-B'B'B-B" :: CALL HCHAR(3,9, 40, 20) 
1460 FOR 1=13 TO 23 i: CALL HCHAR (I, 17,3 
2, 16>:t NEXT I 
1470 FOR 1-16 TO 20 STEP 2 

1480 FOR 11=2 TO 14 STEP 2 i! CALL HCHAR 
(I, 11,63) M CALL HCHARCI, 1 1*1,62) : : NEXT 



1390 CALL POSITION(»l,X,Y>i: IF Y<3 THEN 

CALL LOCATE (» I, B6, 10) 
1600 IF Y>114 THEN 1620 
1610 GOTO 1360 

1620 CALL H0TI0N(#2,0,0): J CALL COINC<41 
,«2,20,C0):: IF CO I THEN OOSUB 740 ■■ 
SOTO 910 

1630 CALL PATTERN(»l,B4):i CALL POSITION 
(Hl,X,Y)!i CALL SFRITE(«7, 132,3, X-20.Y+1 
0):: CALL HOT ION I«l , 10, O, t7, lO.O) 
1640 FOR 1=1 TO 280 :: NEXT I II CALL HO 
TION(»l,O,0,»7,0,0): : CALL SOUNDf 100, -5, 



II 



NEX1 



■50 CALL PAriERNH 



FOR : 



1490 FOR 1=17 TO 19 STEP 2 

1500 FOR I 1-2 TO 14 STEP 2 : .- CALL HCHAR 
(1,11,62):: CALL HCHAR ( I , I I* I ,63) : : NEXT 
II :; NEXT I :: CALL VCHAR( 16, 16,65. 8) : 
: CALL HCHAR(13,16,67) 

1510 CALL CHAR(140,RPT»("F", 16), 141, "O10 
3O70F1F3F7FFF", 126, "010E0EOEOEOEOEO4- ) 
1520 CALL CHAR(36,-04040602436331391F1E0 
E04000000O 1 003C4 20 1 F 903020 08 OBOBOC 04 04OC 
OEO") 

1330 CALL C0L0RU4, 3,8, 1. 15,1):: CALL HC 
HARI24, 16. 14t; : : CALL HCHARI24 , I 7, 140, 16 

1340 DISPLAY AT (21 , 17) : RF'T« < "- ",4):i D 
ISPLAY AT(22. 17) ERPT»('-»fc ",4):: DISPLAY 

ATI23. 171 :RPT«1"7.* ",4) 
1550 CALL SPRITCINI.BO, 16.06, 10,«2,8B,4, 

BA, 200,0, vm 

1360 CALL F'0SITI0N(ltI.X,Yl! : CALL LOCATE 
i"l,H6,Y)ii CALL JOYST U.DX.OV): i CALL K 
EY(1,K,S)M IF K.-I8 THEN GOSUB 1040 II G 
OTO 1580 

1570 IF DX-4 THEN GOSllfe 7O0 ELSE IF DX — 
4 THEN GDSUD 720 

1500 CALL C0INC(H).*2,20,C):: IF C— 1 TH 
EN GOSU& 740 :: GOTO 910 ELSE CALL HLIIO 



TO 43 
. HCHAR(I5.22.32. 



: : GOSUB 1900 
(6, 1 ) : "atj*l 1'iP' 



ck'"i r'tapM": :"l-pour contioticr J jou 

*r " : : "2-pour enrpgi utrpr ton icore* 

16O0 CALL HCHAR(5,2,42, 30) ( : CALL HCHAR I 

13,2,42.301:: CALL WCHAR 16, 2.42. 7) i : CAL 

L VCHARI6, 31,42,7) 

1690 CALL KEYIO.) ,SI :: IF S-0 THEN 1690 

1700 IF K-49 THEN CALL DELSPRI IE (ALL) : : 

VITbVIT-3 :: GOTO 110 ELSE IF R-HO THEN 

CALL UELSPRITE(ALL):: GOTO 1710 

1710 TOR I-t TO 300 Ii NFXT I 

1720 CALL CLEAR it CALL SCREEN I 15)11 CAL 

L CHARSET M FOR 1-1 TO 14 :: CALL CDLLM^ 

(1,2, 1)1 1 NEXT I 

1730 CALL CHAR 133, "OOOOOOFFVTOOOOOO" , 3*i 

"10l8iaFFFFlBiaiO".35,RPT«("lB",Bl ) 

1740 CALL COLORII.3. 1): : DISPLAY ATI4.4) 

: "LEG 3 MEILLELHVS SCORES" 

1750 DISPLAY AT (9, 5) : "VOIRE NOM 7" :1 CA 

LL HCHAR(3,3,;3.28):: CALL HCHAR (5, 3. 33, 

28):: CALL HCHAH (B, 7, 33. 20) i : CALL HCHAR 



,39) 



SUM pr.-j'J 19 



ROULOSTOP 



ZX81 



Fanatiques du pari risque et des casinos, voici de quoi 
jouer sans vous ruiner. L'acces de la salle de jeu est 
interdite au motns de cinq ans... 

Laurent CHAPIN 

Mode d'emploi: 

Commencez par sauvegarder le programme en lapant "GOTO 

9000". le programme se lancera de lui-meme. Vous pouvez jouer 



centre I'ordinateur ou contre une personne. Vous disposez chacun 
dun portefeuille dune valeur de 20 F. Le Rouloslop represente une 
sene d'ampoules valant enlre 1 et 20 points multiplicaleurs. le point 
d'inlerrogation "?" varie entre - 6 et + 6 points multiplicaleurs (- 

Pour commencer, vous misez jusqu'a 10 Irancs maximum. Les am- 
poules clignotent, appuyez sur "S" pour les arreter. Une seule reste 
allumee. Ensuite. pour jouer. vous devez appuyer sur une des irois 
touches (1, 2 ou 3). A present, croisez les doigts. Si vous avez 



presse la bonne touche. vous gagnez la valeur de voire mise. multi- 
pliee par la valeur de lampoule allumee el votre score sera egai a: 
voire mise + la valeur de lampoule allumee + la moilre de votre 
gain. Sinon, vous perdez tout simplement voire mise. Mais attention, 
pour limiler le jeu dans le temps, vous ne poucrez jouer que 10 
tours au maximum. Evidemment. si I'un des deux joueurs n'a plus 
dargent dans son porteteuille avant la fin des 10 lours. !e jeu s'arre- 
lera el I'ordinateur totalisera. Le gagnant sera celui qui aura obtenu 
le score le plus eteve. Alors, bonne chance! 



1300. 
13*3. 
1690. 



1953. 

= 580. 

;..:io. 

5J00. 
5t 10. 

..,0. 
5 : so . 

£340. 

5 350. 

i:-60. 
i -•■ 70 . 
5 350 . 

.5390. 

5400. 

5*10, 
.-.4 50. 
5 4 30 . 
54.40. 
2 100. 
3110. 
34.10. 
34-20. 



VIDEO INUER5EE 
CARACTERES 

PGULGSTOP ' 

SOUL '3 5 7 OP' 

MERCI. . ." 
*133" 
'SCORE. . .TOUR" 

ROUL'I'STOP" 
'MISE. . .GAIN. . . 20. . . 20" 

ZX31 - 

*V0U5 N AUEZ PA5 LE DROIT 
[E . . .NUEF PLU: DE 10 F 

RS." 
"Lfl MAI30N NE FAIT PAS CR 

EDIT" 



550 print at a.9,"J".flT 2,81; "fc 

630 PRINT AT 9.1.'- •'■ .AT 9.51, ■■• 



"3" 

-a" 

"SRAUO" 

•■enerjc- 

"STOP" 

"ON RRRETE 

TUNE. " 
"RATE" 




■".AT 10.A»5 
"".AT U.A*5 



ROULOSTOP 



"brauo .tu as gagne..." 
"c-e3gle.tu as perdu ... on 
-eooi-.hence ?■■ 
'un grand bravo pour;" 



1? SIB 



REM 
_ .. BEN 

14. REM t LAURENT OHAPIn 

is rem * zxei-x&r- . 

le PEM - 

17 rem »»tft«ca*c*4**««cca 

50 "EM 

30 REM 

40 REM REGLE5 DU JEU 

4.1 REM 

45 LET 5C0=0 

50 LET R*e' 

60 LET U« = ' 

61 REM 

70 PRINT i.I4 

50 PRINT AT 0.11 

90 DIM V«(2) 

103 LET US (U = "m" 

110 LET US i2> ="■" 

120 FOP A=l TO 50 STEP 2 

130 PRINT AT A,0,USi5>,AT H,il, 
US iil 

14-0 PRINT AT m*1.0.U$»1i .AT A*l 

.31;v*<a> 

150 NEXT A 
160 PRINT U$ 

165 REM 

166 PEM 

170 PRINT AT 9,1, 00ULEZ-U0U3 L 
E3 PEGLES DU JEU7" 

171 PRINT AT 11 . 10. ■' 10'NI . . . " 
175 INPUT CS 

173 IF CS = "0" OS CS= ' THEN GO 
TO ISO 

174, IF C«t>"M" THEN GOTO 175 

ITS GOTO 195 

ISO PRINT AT 1,10. "REGLES OU JE 

181 PRINT RT 3,l,"ftU DEPART, UOU 
3 DISPOSEZ DE 28 " 

135 PRINT TAB 1. FRS. LE BUT DU 

OEU CONSISTS A" 

183 PRINT TAB 1. "'MISER TOUT AU 
PLU5 10 FR5 PAR" 

134 PRINT TAB 1. -TOUR, SUR UN TO 
TAl DE 10 TOURS" 

135 PRINT TAB 1. 'MAkIMUM." 

186 PRINT TAB l."BIEN SUR, UOTRE 
GAIN SERA EN" 

187 PRINT TAB l: "FOHCTION DE 'JO 
TRE MI5E.ET PLUS 1, 

las PRINT TAB i; "VOTRE GAIN 5ER 
A IMPORTANT .PLUS" 

139 PRINT TAB l."UOTRE SCOPE AU 
GMENTERA." 

190 PRINT AT 17,1,*'MAIS POUR MI 
EUX COmPRENDRE . " 

191 PRINT TAB 1. "APPUiEZ-DONC S 
UR UNE TOUCHE. . . " 

194 IF IIJKEYS = "" THEN GOTO 194 

195 FOR A=l TO 20 

196 PRINT AT A, 1, PS 

197 NEXT ft 

198 REM 

199 REM 

500 PRINT AT 10.5. UOULEZ-UGU5 
JOUER CONTRE une .AT 11.5. PER 50 
NNE OU CONTRE LE ZXS1 7";bT 13.6 

" iZ^P> . . . 5IN0NCNI " 

210 input zs 

520 if zs="z" op zs = *'p' then go 

TO 560 

£30 IF ZS* "N" THEN CLS 

240 IF ZS= "N" THEN STOP 

550 GOTO 210 

560 FOP A=10 TO 13 

570 PRINT AT A, 1, RS 

580 NEXT A 

290 IF 2f»"Z" THEN GOTO 350 

300 PRINT AT 3,1, "JGUEUR 1,'JOTR 
E PPENOM I ". 

310 INPUT PS 

330 PRINT PS 

330 PRINT AT 10. 1, "JOuEUfl 2. A U 
OUS :"J 

340 GOTO 360 

350 PRINT AT 10,1, 'ENTREZ UOTRE 

PPENOM I ■'; 

360 INPUT OS 

370 print os _ -mmm- 

390 FOR X=0 TO 30 

400 NEXT X 

4 10 CLS 

420 REM ..***..**..... ....»%n« 

430 REM INITIAL. VARIABLES 

431 PEM 

440 LET T1=0 

450 LET T»=0 

4€-0 LET T5 = 

470 LET As= 

430 LET D*= v^-^^^^mh 

490 LET U=0 

500 LET Ofa lt*l 

510 LET :;---■■■ 

BM LET J 1=50 

530 LET J5=50 

540 LET S=0 

550 PEM 

560 REM DESSIN DU JEU 

561 REM 
570 FAST 

580 POP A«10 TO 20 

590 PRINT AT 1,A,'-",AT 9.A,"" 
600 NEXT A 

610 PRINT AT 1.9. ".".AT 1,51. ' 
".AT 9.9. " •", AT 9 .51: "■ " 



630 PRINT AT 3,8, "i 

690 FOR A =9 TO 11 

700 PRINT AT 10 .A. 
. W. AT 10,A*10. V 

710 PRINT AT 14 .ft, 
. "■■■ .AT 14 .AtlO, "■■■ 

~50 NEtT A 

730 FOR A=15 TO 55 

740 PLOT 17, R 

750 PLOT 54. A 

760 PLOT 37. A 

770 plot 34 .a 

730 plot 37. a 

790 plot 44 ,a 

600 NEXT R 

■310 PRINT AT , 

320 FOR A=3 TO . 

530 PRINT AT A.9.AJ 

340 NEVT A 

650 PRINT AT 3 . 10 . "«3*5i.4fcaL.S 

555 PRINT TAB 10; "lwattMiiAl 

1*0 ^PL'IT TAb 10. ■ ._ ) »»1Q'^-. W 50 ■ 

"* t ab__ 10 ',_ -■ *s^i*ifri*" 



390 -PINT AT 

=■00 FOP A = ll TO 13 

910 LET BS='MfciJ 

950 PRINT AT A.9;bS.AT 



5 .10. A* i 



930 NEXT 

940 prin 
15; <** I a ' . mi x^ .50, i 
990 PRINT AT 1 O. 



AT 1? , 10. G» 



, 1. "100001 ■ . AT 




.24, 



1040 PRINT AT 
4.24. "100001" 
1050 PRI NT AT 15.' 
15,53, " ^^™— -' 
1060 DIM UStlO.BI 

1070 LET I 

1080 LET ! 
1090 LET I 
1100 LET M i. 
1110 LET Kt II 
1120 LET Kj i' 
1130 LET MT 
1140 LET h.S li 
1150 LET K.Si' 
1160 LET K»i:._ 
1170 PRINT AT 5, 5. AT 5,5S. 
1130 FOR A=l TO 10 
1190 PRINT TAB 5-KSlOl CS TO 
B 25. h.S IAJ 15 TO I 
1500 NEXT A 
1210 PRINT AT 
i 520LETA«^l 

"iSoPRINTHT 16,0.1 
1240 FOP A=l7 TO 20 
1250 PRINT AT A,0;"1" 

1560 NEXT A 

12?0 PRINT AT 21.0. A* 

1280 5L0U 

1590 PRINT AT 0. "Kt 



.AT 9,23, "1 



159 '5 
1 300 
,21, 
.27. 

1310 
30 0' 
1313 
1314 
131S 


PRINT AT 9, 10 
PRINT AT j.3_,5 


sPBnSTff 


PRINT AT 0,11 
REM 


-LEN STRJ 5C0, 


REM AFFICHhGE 


NOtlS DE5 JO. 



1330 IF Z*="P" THEN GOTO 1360 

1340 PRINT AT 21 .5. "BHB" ! H T ■ 

,57-LEN OS. 

1350 GOTO 1400 

1360 PRINT AT 21,9-LEN PS; 

1370 FOR A=l TO LEN PS 

1380 PRINT CMRS 1C0DE PS lA) +12! 

1390 NEXT fi 

1400 PRINT AT 21,27-LEN OS, 

1410 FOR A=l TO LEN OS 

1420 PRINT CHRS iCODE 0S(AI+12i 



TOUR DES JOUEURS 



1470 IF ZJ = "P-* 

1430 LET J0=J2 

14g0 LET TT=T2 

1500 LET Y=25 

1510 LET M=29 

1520 LET L*26 

1530 G03U6 1650 

1540 LET 1=0 

1550 IF ZS="P" T 

1560 LET TRsTRtl 

1570 PRINT AT 0, 



1530 PRINT AT 

1590 LET J0=J1 

160O LET TT=T1 

1510 LET V=2 

1620 LET M>6 

1630 LET L=10 

1640 IF NOT U THEN GOTO 

1645 REM 

1650 PEI 

1655 RE' 



HEN LET TS=0S 



EN LET TS=P* 
1-LEN STR« TR,T 
l;RS;AT 30,1,DS 



1656 REM 

1560 FOP A= 11 

1670 PRINT AT 

1330 IIE*T ft 

1390 PRINT AT 

1700 PRINT AT 



MISE 
13 



,'5U (-win I hi ia,i,N» _ 
730 IF NOT I AND Z*='Z THEN I 
INT AT 13.2.JE MISE ..." „ 
1740 IF NOT I AND ZS='Z THEN i 



1750 IF 

2.TS.",L 

1760 IF I AND ZS= 



THEN 



AT 13,2, "ENTREZ UOTRE MISE 

1770 GOTO 1630 

1773 PEH 

1774 REM 

1775 REM LE ZX MISE 

1776 PEM 
1730 LET Z»INT 



-790 
D.JO' 



■J0<18 THEr 



1795 IF J 
130O LET 
1310 LET 



LET ZsINT 
I LET Z-10 



1550 GOTO 1360 

1330 INPUT MS 

1640 IF NOT CODE MS THEN GOTO 

30 

1650 LET M1=UAL MS 

1360 IF MI. JO THEN &0T0 1950 

1670 IF MI, 10 TmEii >30ro 1390 

1330 GOT.j 50 10 

1335 REM 

1-390 PRINT AT 




1900 I 

19 lO IIEaT H 

1920 PRINT AT 13,1, RS. AT 19,1,RS 

19 30 GOTO 1760 

1940 GOTO 5010 . __ . 

[3«iw«j-fcwfci3aiai'- * r '* : '' IH '"" 

1970 NEXT A 

1930 PRItJT AT 13 . 1. RS 

1990 GOTO 1760 

1995 PEM 

5000 PRINT AT 13, l.R» 

5003 PEM 

5004 REM AFFICHAGE MISE 

5005 REM 

2010 PRINT AT 16,7; 

2020 FOR A=l TO LEN MS 

2030 PRINT CMRS iCODE MSiAi+126) 

2040 NEXT A 

5055 REM 

5060 REM 

2070 PEM P0UL05T0P 

2075 REM 

5077 PRINT AT 13 , 5 . " APPUVER SUR 

»»S"" POUR STOPPER." 

5030 LET 0=INT tRND* 

5050 PRINT AT 3,10;" 

5100 PRINT TAB 10; " 

2110 PRINT TAB 10, " 

2120 PRINT TA8 10. - 

2130 PRINT TAB 10. " 

2140 PRINT AT 5, 10. 

2150 PRINT AT 3, 10. 

2160 PRINT TAB 10; " 

5170 PRINT TAB 10," . 

3180 PRINT TAB 10. "2H 

2190 PRINT TAO 10 , "*4BiSsS3T2" 

5200 PRINT AT 5, 10. "»SEQr , «20" 

5210 IF NOT I AND ZS-'Z" THEN GO 

TO 2240 

5550 IF INKEV>*"S" THEN GOTO 554 



2230 GOTO 2080 

3240 REM 

5250 LET S=l 

2560 GOTO 350 

2270 PRINT AT 18,1,HS 

2280 IF C=l THEN PRINT AT 3.X1J" 

B" 

5590 IF C=2 THEN PRINT AT 3,13," 

2300 IF C=3 THEN PRINT AT 3,15," 

2S1O IF C=4 THEN PRINT RT 3,17," 

2320 IF C=S THEN PRINT AT 3,19," 

?330 IF C=6 THEN PRINT AT 4,10," 

2340 IF 0=7 THEN PRINT AT 4,20," 

2350 IF C=6 THEN PRINT AT 5,12;" 

5360 IF C=9 THEN print at 5,1s," 

2370 IF C=10 THEN PRINT AT 5,17, 
"S3" 

5330 IF .1=11 THEN PRINT hT 3,10. 

2390 IF 0=12 THEN PRINT AT 6,50, 

a 

2400 IF C"13 THEN PRINT AT 7,11; 

'-§.. 

5410 IF C=14 THEN PRINT AT 7,13, 

"D 

2420 IF C=15 THEN PRINT AT 7,15, 

"g" 

2430 IF C=16 THEN PRINT AT 7,17, 

"8" 

3440 IF 0=17 THEN PRINT AT 7,19, 

"S" 

5445 LET 5=2 

5470 REM 

2430 REM SELECTION DU BOUTON 

2431 REM 

2490 LET P=INT (RN0*8) 

2500 PRINT AT 13,1, "TAPER 5UR 1, 

3 OU 3 POUR JOUER" 

5510 IF NOT I AND ZS="Z" THEN GO 

TO 2590 

5550 FOP A=l TO 3 

3530 LET EbXNT iBND*3) *1 

55.10 LET JS = INKEYS 

2550 LET J^CODE JS 

2560 IF JS="1" OR JS="2" OR JS=" 

3" THEN GOTO 2650 

55T'0 NEXT A 

5530 GOTO 5430 

2583 REM 

5564 REM 

2535 REM LE ZX JOUE 

2536 PEM 

2590 LET E=INT IRND*3>*1 

2600 LET H=IMT ■PMD»10I+1 

2610 FOR A=l TO H 

5350 LET U=INT (RN0*3)+1 

^■:--j.<, NEXT A 

2540 LET JS^STRS U 

2650 LET J=COOE 5TRS U 

26SS REM 

5360 IF E=l THEN LET G*(E)»G*(1) 

5570 IF E=5 THEN LET Gsi£)=GSl2) 

SEOe IF E=3 THEN LET GS'E'=GSi3i 

S69IB IF E»l THEN LET U=9 

5700 IF E=2 THEN LET U=l* 

5710 IF E=3 THEN LET U=19 

5750 IF E=UAL JS THEN GOTO 3770 

2730 IF J=29 THEN LET T=10 

2740 IF J=30 THEN LET T=15 

2750 IF J=31 THEN LET T=20 

5760 OOTO 3530 

2765 REM 

2770 REM ■«»§•*«•**•»«•*»••**** 

2730 PEH COEFF.MULTIPLICATEUR 

2785 REM 

5790 LET OaXNT iRND*6J*l 

5300 IF C=9 AND NOT P THEN LET C 

M»3 

2310 IF C = 9 AND P THEN LET CM-0 

±-^Z^ IF = 1 THEN LET CM = 3 

2330 IF 0=2 THEN LET CM=2 

5340 IF 0=3 THEN LET CH=4 

2350 IF C=4 THEN LET CMsfl 

2560 IF C=5 THEN LET CM-5 

5370 ir 0=3 THEN LET CM=I 

5:30 IF 0=7 TMLri LLI L H = I 

2890 if r=6 Then let i.m = iO 

2900 IF r=10 THEN LET CM.20 

2910 IF 0=11 THEN LET CM»2 

1*R0 IF 0=15 THEN LET CM«1 

2550 IF 0=13 THEN LET CMi4 

5540 IF 3=1J THEN Ltr CM.l 

3950 IF 0=15 THEN LtT CM=5 

5960 IF 0=16 THEN LET CMs3 

5570 IF 0=17 THEN LET CM«2 

29B0 ALII ...•.&GUTGN GAGNANT . . . 

2935 REM 

5 j JO LET MIi'.'AL MS 

3000 PRINT AT 13.1.RS 

30 10 FOR h= 11 TO 13 c „ „ ., 

■ 05*1 PRINT AT A,U, uSiEi , GSiEi , 1»S 
IEI 

3030 NEXT R 



3040 PRINT AT j, , . 

3050 FOR A=l TO 10 

3060 PRINT TAB ..KS'A-i TO H 

3070 NEXT ft 

3030 FOR A=l TO 5 

3090 PRINT AT 12.iJtl.CHPS (CODE 

GS-Ei -123- .AT 15 .U»1.GS'EI 

3100 IF I OP ZS=P" THEN PRINT A 

T 16,15. ■ BRAUO ".AT I6,15."B*e 



3110 



3150 NEXT ft 

3130 IF 0=5 AND IP AND NOT I AND 

ZS = "Z") THEN PRINT AT 16,1,'*FLU 

TE.MA MSB EST IIULTIPLIEE'.AT 19 

, 1. PAR ".CM 

3140 IF 0=9 AND ip AND I OR iNOT 
I AND ZS="P' 1 < THEN PRINT AT IS 

,l,"DE30LE MAIS TA MISE EST ' , AT 

19,1, "MULT IPLXEE PAR . ",CM 

3150 IF 0=9 AND P THEN GOTO 3210 

3160 IF NOT I AND ZS= *Z" THEN GO 

TO 3160 

3170 GOTO 3500 

3160 PRINT AT 18,1; "HA MISE EST 

MULTIPLIEE ".AT 19.1. 'PAR : " , CH 

3190 GOTO 3210 

3200 PRINT AT IS, 1, "UOTRE HI5E E 

ST MULTIPLIEE ",AT 19,1. "PAR I " 

,CM 

3204 REM 

3205 REM 

3203 REM CAL0UL5 

3207 REM 

3210 LET Gft= IHI»CMI -MI 

3220 IF E=VAL JS THEN LET TT=TT. 

Ml.CM.INT IGA/3I 

5530 LET .jlj=.jO*GA 

3240 IF NOT I THEN LET J1=jO 

32S0 IF NOT I THEN LET T1=TT 

5560 IF I THEN LET JS=jO 

5570 IF I THEN LET TSsTT 

3230 PRINT AT 16,27. MS 

3534 REM 

5555 REM Afr-ICHAGti GAIN 

3236 REM 

5590 PRINT AT 16,27. 

3300 FOP A=l TO LEN iSTRs OA 1 

3310 PRINT CHRS .CODE .STRS GAi 1 

Al .123) , 

5350 NEXT A 

3330 IF TT<0 THEN GOTO 3350 

3340 PRINT AT 14.M-LEN iSTRS TTi 

,TT 

3 350 PRINT AT 51.L.NS 

3 35 3 PEH • 

3354 REM 

3355 REM ■ 
5.60 PRINT AT 21, L, 

3370 FOR A=l TO LEN iSTRS Jul 

3330 PRINT CHRS 'CODE 'STRs JO) • 

A) +123) ; 

3390 NEXT R 

3400 IF C<>9 THEN GOTO 3430 

3405 REM 

3410 IF C=9 AND P AND NOT JO THE 
N PRINT AT 20,1. " ISs*BQ... TU E5 
T A SEC . '• 

3420 IF C=9 AND P AND ZS="; 
NOT JO I Her; =::::■ AT 50, ■ 



3430 I - 

5440 FOR A=l TO 10 

3450 PRINT TAB i,fStAi!5 TO I 

1430 NEXT A' 

3470 IF NOT Jl OR NOT J5 THEN GO 

TO 3670 

5430 IF I AND TR=10 THEN GOTO 36 



GE ARGENT 



i;RT 19,1. PS 



70 

.^■l.^Ci PRINT AT 

5495 GOTO 350 

3500 IF NOT I THEN GOTO 1450 

3510 RETURN 

3515 REH 

5520 PEM t.tiH.tsntlMtmt 

3530 REM BOUTON PERDANT 

3535 REM 

3540 PRINT AT 15, T ; """ 

35.50 PRINT AT 16 . 15. •'■aduSsV 

3560 IF NOT I AND ZS="Z" THEN 

TO 3580 

3570 GOTO 3600 

3530 PRINT AT IS , 1, " ZUT . . . JE I 

Do MA MISE. 

5590 GOTO 3310 



1-500 
£POF. 

\ 5 1 

-.<-.;.z 

56 30 

153i 

554 
5550 

: '.■■-.■■3 

J53'- 
J570 
5 ■;■ 5 
5685 

:>.65 

53 =0 
5E . 
31.94 


PRINT AT 16.1, ■ 
! ",'uTRE MISE." 
LET GA=-MI 
FOR A=l TO 10 
PRINT AT 12,U»1 
AT 13.U»1,CHRS 


MELAS 

,G*iE 

■ CODE 


,UOUS P 

,AT 12 

GS'E' - 


NEXT A 
PRINT AT 
GOTO 323 
REM 


15 

3 


T, ' 






PEH 
REM 
PC INT 
PRINT 

PRINT 


RESULTATS 

AT 16. 15. "■■■ 
AT 18 . 1, ' JE 
".AT 19.1 
AT 16, 7. IIS, AT 


TOTAL I 
RS 
16.2T.N 


POINT 


AT 


51 


10. 


IS. AT 


21,28, 




LET v 


t = - 








.".,■; 11 


37 10 


PRINT 


1 TO 12 

AT A . . ■ S 


.AT A 


O.RS- ' 


5750 

■ 7 30 
3 740 


NEXT A 
PRINT AT 
PRINT AT 


13 


0. . 
6. ■ 


■ 





3750 LET TlaTl+dl 

3750 LET T5=T2t-J3 

3765 PRINT AT 13,1, ft* 

3770 PRINT Hi 14.6-LEN 3TRS 



n.T 



.O KH1HI Ml li.O-LCI' iin 

i.AT 14,29-LEN 5IRS T5.T2 
3750 IF J1.J2 AND Jl.iLU UR Jl.J 
2 AND J5-5G0 THEN GOTO 3310 
37g0 IF Jl,J2 THEN LET 3C0=T1 
3500 IF Jl :J5 THEN LET SC0=T2 

■ ' LEN STRS 500, 



3310 PRINT AT 
SCO 
3620 IF ZS 
T TS=RS 
3630 IF ZS 
T 0S=OS 
3640 IF ZS 
T Tf>B] 
3350 IF ZS 



AND T1<T2 THEN LE 
AND THT2 THEN LE 



AND TUTi THEN LE 



ToemVnTTtu est TPOP u£R 

, 1, "POUR MOI ■' 

5570 IF 7.* = "Z" AND T 
INT AT 30 1 1 . R«. AT 3. 





5500 NEX 

3910 CLS 

3520 GOTO 50 

8950 HEM 

8995 PEM --- 

S996 REM 

8997 REM 

9000 SAUE "MUUL05Ti.ti " 

9010 RUN 



5AUUEGARDE 



17 



PIECES EN VRAC <$b ORic 1 atmos 



Un mini-puzzle? Ca a I'air simple, mais je vous 
conseille de lire tout ce qui suit avant de rentrer ce 
programme ou avant de renoncer a le rentrer sur votre 
ORIC 

Thierry THOMAS 

Ce programme esl assez long, environ 35K, mais cela ne doit pas 
vous decourager. En effet, il esl tres modulable aussi, dans un pre- 
mier lemps rien ne vous oblige a loul taper. Vous pouvez en elfet 
ne pas taper la presentation, les explications et le choix du puzzle. 
Vous rentrerez ces parlies de programme plus tard. De meme, vous 
pouvez rentrer seulement un ou deux puzzles choisis parmi les 11 
disponibles. Ce sont tous des personnages de Bandes Dessinees 
plus ou moins connus (ce programme est en fait, pour moi, la meil- 
ieure facon de consilier mes deux passions et de rendre hommage 
a tous ces heros ainsi qu'a leurs talentueux dessinateurs). Les 
lignes a 7000 sont indispensables, ainsi que les sous-programmes 
de DATA des mini-puzzles, le reste pouvant etre simplilie. 
Ce programme est totalement compatible ORIC 1 ORIC ATMOS par 
programme, en effet, les differences entre les PLOT sont corrigees 
et la routine du RESTORE LINE est adapte pour les deux versions. 
Si vous possedez un ATMOS, le RESTORE LINE ORIC 1 n'est pas 
indispensable (par contre. laissez AT = 1) mais si vous possedez 




un ORIC 1 mieux vaut taper les deux dans I'eventualite d'une trans- 
formation en ATMOS. 
Description du programme: 

Principe des puzzles: les mini-puzzles sont realises a I'aide des ca- 
racteres redefinissables. soil 80 caracteres au maximum, les puz- 
zles component 96 pieces (8 x 12 caracteres, 64 x 72 points) mats 
comme Ton ne redefinit qu'un seul caractere pour plusieurs motifs 
identiques (ex: pieces entierement blanches ou enlierement noires), 
on arrive rarement a les redefinir tous (Joe Dalton!!!). Vous pouvez 
creer vos propres mini-puzzles et les mettre dans ce programme, 
les emplacements sont en effet prevus dans le choix du puzzle. 
Dans les sous-programmes de redefinition de caracteres. toutes les 
lignes autres que les DATAS sont identiques {excepte le RESTORE 
LINE). La premiere donnee a la ligne NN 100 represents le dernier 
caractere redefini plus 1 (lie le premier caractere non redefini). Les 
lignes NN110 a NN180 representent le chargement du tableau TM. 
c'est a dire le puzzle en code ASCII. Les lignes suivantes. a parlir 
de NN200. contiennent les donnees necessaires a la redefinition de 
caracteres. II y a 16 donnees par ligne soil deux caracteres. Je vous 
conseille de dessiner votre motif sur une feuille de papier millime- 
tres a une echelle appropriee. cela facilite la "digitalisation" du motif. 
Mode d'emploi: 

Le mode d'emploi du programme etant explique a I'interieur de 
celui-ci, je ne le repeterais pas ici, mais je precise toutefois qu'il 
semble n'etre pas tres simple a premiere vue, mais en fait, une fois 
qu'on I'a assimile. il ne pose plus aucun problems. 



Couleurs: Les couleurs ont ele prevues pour une television couleur. 
Tous les possesseurs de monileur ou TV noir et Wane sonl pries 
d'acheter une TV couleur ou une interface PerileLSecam. Si r argent 
vous manque, contentez-vous de modifier les couleurs. Attention, 
dans le sous-programme de dessin des cadres, les couleurs sont 
obtenues par des POKE lignes 1020. 1060. 1100 et 1110. 
Distribution aleatoire des pieces: 

C'est la partie la plus lente du programme. 30 a 35 secondes. Les 
amateurs d'algorithmes complexes pourront sans doute ameliorer ce 
sous-programme. Son but est de donner les pieces a I'utilisateur 
dans un ordre aleatoire sans les lui redonner deux fois. II s'agrt la 
de (aire une mise en desordre d'une liste. La methode que j'ai utili- 
see consiste a jouer sur I'indice d'un tableau et sur le contenu de 
cet indice. Au debut, le contenu des elements indices, est egal aux 
indices (0 a 95). On prend alors aleatoirement un indice entre et 
95 et Ton isole son contenu que Ton rejette en fin de tbleau en 
decalanl le tableau de la fin jusqu'a I'indice tire. On prend alors un 
indice aleatoirement entre et 94 et etc... L'inconvenient de cette 
methode, esf qu'elle donne toujours comme premier caractere, le 
dernier caractere du puzzle (indice 95) ce qui n'est pas trop grave. 
J'espere que toutes ces precisions vous serons profitables et je 
vous souhaite de passer quelques agreables heures de programma- 
tion et de jeu. 

N.D.L.R.: Miche et Micha ont passe deux heures a faire Gaston La- 
gaffe (leur idole). C'est vous dire... 



1 REM ■ 

2 PEM i 

3 REM It 

4 REH N 

5 REM • 

6 REM a 

7 REM » 

8 REM t 

9 reh a 
19 REM a 



MINI-PUZZLES 
Par THOMAS Thierry 



Pour ORIC-1 ?• ATMOS 



Fev.. 



Msi 34 



48A JMP •GATE 
400 LDA BCE 

4of sbc saei 
411 sta tee 

413 LDH iCF 

413 sec ttee 
417 sth tei 

419 RTS 



eeo 0RTfla4C,i7E,ac4 
8ie pHTfiaH5.»CE 

929 DATAa)E9.«01 

830 oHTHaes.aee 

848 DftTAiAS.KF 
850 DATAtE9,i88 
860 DATA»8S,iBl 
870 DATfl«68 

1800 REN xxxxxxxxxxxxxxxxxxxxxxxxxxxx 

■ 1081 REM X X 

• L'HEBDOGICIEL 0. L'AUTEUR • 1002 R€M X Dessin des Cadres X 

11 REM a * 1003 REM X X 

12 REM aateaaaa«aa«»a*aaaaaaaaaa»»aaa 1004 REM XxxxxxxxxxxxxxxxxxxxxxxxxxxX 

13 REM 1003 CLS 

15 GRH8 HIM£MeB3FE 1010 FORI-48841T049941STEP48' PDXEI ,9' 

17 POKE5I8,19^PEH Clavier nwet t Curs NEXT 
tW invisible 1020 F0RI-488e2TO48442STEP48'POKEI,23 

28 PAPER9IHK2=CLS = DH»-CHRt( 4 VCC«"CH : P0KEI*1 , ' POKEI + 18, 16 •POKEI+19, 2'NEXT 
P !!i 2 L\.™ ~ ,„ ~ I03e F «r*4e044TO48837.PC*:EI.16a<POKE 

30 DIMTM<?3>,TP(S-5>.ftO>,PC«J 1*18, 168 ' POKEI+368. 168.POKEI+378, 168. N 

49 G03U6499 REM DRIC-1 ou. HTMOS EXT 



2309 X1=X'Y1«Y 
2319 PLOT X*AT.Y.PP*128 
2'iZQ GET BE*' B6=ASC'- BB» 
23-30 IF 88 
2348 IF SB 
2330 IF 8B 
2360 IF BB 

2379 IF BB-32 AND Pl = ll 
TO 2?09'REM p?s d» H»« 



9 AND V. < 33 THEM X=X+I 
8 AND X > 22 THEM X=X-1 

10 AND Y < 8 THEN Y*Y*1 

11 AND V > 1 THEN Y-Y-l 
THEN PING-GO 

ous le curse 



47 AND I C 60 THEN X-I-26 8879 PLOTS . 1 1 . "SPIROU <, 82 )" 

8889 PL0T3, 13, "GASTON ( 03 >" 

72 THEN X-I-38 8098 PLOTS, 13. "TINTIN < 04 )■ 

819e PtOT3,17,"BO'XE S, BILL < 85 >" 



• 39 AMD I ' 



50 G05iJ898ee 

ee GosuB7eee 
78 oosueieee 

80 GOSUB1308 

?8 Gosije2e0e 

188 GOSU83580 



:REH PRESENTATION 
REM EXPLICATIONS 
REM DESSIN CADRES 

'REM PESSIN PUZZLE 



1038 NEXT 
REM DEPLACEHENTS %. JEU i860 FORI-48602TO48922STEP48>POK»I,2e 
REM RESTE DO PANIEfi :P0XEI*1,9'P0KEI*17, le^NEXT 

G0SLlB48e8 REM VERIFICATION PUZZL .1070 FOR I -48644T048656 'POKEI , 1 69 > POKE 
1*240, 168 'NEXT 

ill SETTS* to 4 M ^,p« E ..e.Ke'^XrtH'S 88 " 5 ^ 4 "'*"'' 6 
E Se n. I HT.miHTO»,CM- J -,c«-D-; 8 fa ,;?H,Ii|!S? M ™ 871e " WE, ' ,M ' ra<E 



2389 IF BB = 32 THEN 2430'REM Pris« 
1 c?t-act«re r»*l Pl«c« 
2398 P2-TP<X-22*<Y-1>*I2> 
2408 IF PI = 9 THEN Pl=2 
2410 PLOT X1*AT,Y1,PI :P1«P2 
2428 GOTO 2300 'REM nouv»*u *Pl*c»w. 

2438 PP=TP(X-22*(Y-1>*12> 
2449 TPXX-2ZKY-I >«12)»111 
24^9 PLOT X*AT,Y,1U 
2469 GOTO 2930 
2508 REM Pl^» tuiv*nt* 
2518 IF RP <> THEN 3389'REII il rt: 
? d«* Pieces dans 1« Puniar 
2528 NEXT KK 
2909 RETURN 
3008 REM 
3091 REM X 
3882 REM X 
3893 REM X 

3084 REM XxxvxxxxxxxxxxxxxxxxxxxxxxxX 
3885 REM 

3818 FOR I - 8 TO 9 
3828 IF *I> ■ HI THEN ftf I >-PP. J-I 1 1 



71 AND I < 84 THEN X-I-38 8118 PLOTS, 19. "A. TALON 

8120 PL0T3. 21. "LUCKY LUKE ( 
83 AND I < 96 THEN X-I-62 |130_PLOT2, 23, -Puzzle, uilva.nl 

6149 PRIHTCHRK132J; INPUT- 
votre choix <PET) i "jCM 
8138 IF CM <> THEN 8439 
8168 PL0T3,9,-Grd SCMTROUMPF 
8170 PL0T3,ll,-Jo« DflLTOH 



Cesfcion tJu P*ni*r 



4109 IF I 
■Y-3 

4119 IF I 
»Y»S 

4129 IF I 
■Y-7 

4139 IF I 
■Y-8 

4140 PLOT X*AT,Y,TP<I>*128 

4130 NEXT 
4160 RETURN 
3988 REM 

seei rem x 

3882 REM X Distribution «U«.toir« 
5883 REM X 
3004 REM X 
3083 REM X 

3886 REM Xxxxxxxxxxxxxxxxxxxxvv.yy.sX 

3887 REH 

3810 PLOT 9,23,12'PLOT 18,25,2 
5820 PLOT 11,25, "VEUJLLEZ PHTIENTER" 
5838 FOR I - TO 95 'PCI>I'NEXT 
3e40 FOR PR • 95 TO 8 STEP -1 
3838 IN-INTCRMCK1 J>PR)'C"P(IN) 
5868 FOR J ■ IN+1 TO PR 'PC J-l )«P( J)i 
NEXT 
5878 P<PR>-C'NEXT 
5888 ZAP 
5898 PLOT 9,25," 



d*s Places 



8188 PL0T3,13,"Gil JOURDhN I 

8198 PL0T3,13."Uii SCHTROUnPF « 
8298 PL0T3.17.-XXXXXXX I 

8218 PL0T3,19,"XXXXXXX i 

8228 PLOTS. 21. -XXXXXXX < 

8238 PL0T2,23.-Pu23:ta» suiwants 



168 PRINTPRINT 
178 IF FA > 1 THEN PL»-": 
188 PRINT-Vous ivez fait 
;PL« 



1118 P0KE48797,2 

1388 REM XXXXXyvyvyvyy/xxy^^XXXXXXXXX 

jFAi-fiuta- 1381 REM X X 

1392 REM X Visu*lis*t. das esfaces X 

1393 REM X X 

1384 REM Xyy^.^yvyyyyyyyyyxxxXXXXXXXX 

1383 REM 

1318 !1358 

1328 FOR I - aBB78 TO aBB7F 



198 PRINT PRINT 

299 IF Fft - THEN PRINTCHRK 133 )" 1 
'est P*rf*it , bTAVO I" 
_ 218 IFFA<4ANDFfl<>9THENPRINTCHR»<I33> 
Ce n'est p*s troP «*l,Per»evefa2...' 
229 IF FA>3 AND FA<9 THEH PRINTCHRK 1 1339 PER p r»'POKE I . DO 1 NEXT 

32>" Ce n'est P*s encore c*...' 1349 RETURN 

239 IF FA J B THEN PRINTCHRtX 129 )~ N [359 PATR9,9,8, 12, 12,9,8,8 

StezPfs , ch*n9ez de Jeu..." 1590 REM xx:^xyy>ryy>-yyyyjvvv<xxxxxxxxxx 

1591 REM X X 

lez-vous 1" 1502 rem x Desain du Mini-Puzzla X 

e ce Mmi-Pu 1503 rem x X 

1594 REM »y.f:<:<x>-yyyy r yyvxxxxxxxxxxxX 

un *utre Mm 1505 REM 

1319 X-8'Y^0 

de C« Pro«r J520 for 1 » TO 93'PLOT X*4*AT,Y*1, 
TPKI) 

Entrez 1339 X-X*l = IF X » 12 THEN x-0'Y-Y*l 

1549 HEXT 



248 PRINT PRINT 
259 PRIHTCHRS':i34) 1 
268 PRINT PRINT" Refa; 
ZZle ">CHR»<:135J"1" 

279 PRINT'PRINT" Faire 
I-Puzzl* ";CHR«(135>' , 2" 

280 PRINT'PRINT" Sortii 
a.n»ie "iCHR*': 133>"3" 

239 PPIHTPRINTCHR»(132> 
I'oPtion choisie '", 
399 GETOP» OP=VALC0P») 
319 IF OP < 1 OR OP > 3 THEN 389 
328 PRINTCHR»(134>iOP» 
338 FOR 1*0 TO 3H(I)=9 HEXTFOR 1-9 
TO SS'TP'.I -=8'NEXT 
349 IF np ■ t THEN 79 
358 IF OP - 2 THEN RUN 
369 CLS END 
488 REM 

491 REM 

492 REM X ORIC-1 ou ATMOS X 

493 REM X X 
404 REM X/.y:</v</v :i:i i^x;<^/i:yxi;/j/,:a/X 
495 REM 
419 IF PEEKCtFFFe 

LSE AT=-9 



5180 RETURN 

7888 REM xxxxxxxxxxxxxxxxxxxxxxxxxxxx v° tr * choix <RET> ■ ",CH 

7881 REM X X e28e IF CH <> « ™EN 8458 

7882 REM X Explications X 829e "-0T5-9, "XXXXXXX 

7883 REM X X. 8380 PLOTS, 11, "XXXXXXX 

7804 REM Xxxxxxxxxxxxxxxxxxxxxxxxxxxx " 

7883 REM 8318 PL0T3, 13, "XXXXXXX 

7818 CLS 

7828 PRINT. PRINTC*»;CC«"J-;CC»'G";SPC 832e PLOTS. 13. "XXXXXXX 

< I2>)"ExPHcatlons"jDHt "„„ 

3079 XX-XX+2'IF XX - 13 THEN XX-3YY- 7939 PRIMT'PRINT'PRINT'PRINTCHRtX 149> _ 8330 PLOTS, 17, "XXXXXXX 
9 'PRINT 

3888 MEXT 7848 PRINT- L* cadre altue en haut „ 9349 PU0T3 ' l9 ' "XXXXXXX 

3898 GET FF» « 9auche" 

3188 IF FF« - "8- THEN 2380'REM Puzzt ? W« PRINT"contient le nodele , cetu , 833e PLOTS. 21. "XXXXXXX 
■ tut vent i d* droite" 

3118 IF FF« <> "C" THEN 3898'REM «ntr T*** PRINT"contlant votre Mtni-Puzzte 036a PL0T2.23," 



3049 XX-3'YY-17 
3838 FOR I - 8 TO J 
3868 PLOT XX*AT,YY,A<I 



3139 A8-A<e>'XX-5'YY-17'XY-XX:YX-YY 

3140 PLOT XX*BT,YY,168 
3138 GET W»'W-HSCCVVt) 

3168 IF VV - 8 AND XX > 5 THEN XX-XX- 
2 

3178 IF W - 9 AN0 XX < 13 THEN XX-XX 
+2 

3108 IF W - 10 AND YY - 17 THEN YY-1 



Le cadre situe an 



Entrez 



niar' 



c'est a dire 



ill 



3198 



. AND YY - 19 THEN ) 



12 THEN X-8'Y-Y+I 



1378 X-X*1IF X 

1589 NEXT 

1590 »5'Y=17 
1680 FOR I ■= 8 TO 9 
1618 PLOT X+AT.Y.lll 
1629 X=>X*2 IF X - 15 THEN X-S Y-19 
1639 NEXT 

1648 REM [nit. tableau TP( I) t, FK I ) 

1650 FOR I ■ TO 95'TP(I>=H1'HEXT 

1668 FOR I = 9 TO 9R<I>=>I11 NEXT 

16?9 RETURN 

ltB THEN AT-1 E 2009 REM X^OQOOOOOOOOOOOOOOQQOOOQOOOOt 

"I REM X 



429 PEH Si FlT-1 voua tVCZ Wl HTMOS 2 WZ REM 

39 ON AT-1 GOSiJB 390.788'REM RESTORE 2e g 3 p E M X 



D*Pl*c*tttnts et Jeu 



rxxxxxxxxx xxxxxxxxxxx X 



LINE 

440- RETURN 

580 REM 'yyxyyyyy^/xxxxxxxxxxxxxxxxx 

581 REH X X 

582 PEM X RESTORELINE ORic-1 X 

583 REM X 

584 PEM XXXX 
595 REM 
519 RESTORE 

329 FOR I = 1488 TO «41C 
539 REAt. RL-POKE I. PL NEXT 

549 rx»Ei2F3.a4ee 

559 PETiJRN 

568 MtTHt20,a?8,»CA 

579 DHTAa28.iDE.«C6 

389 WTAtee-tas 

598 DATAtA2,»5A 
688 PATAMC.i83.K4 
618 CATA»38 
G29 DATAiAS.KE 

639 ['ATAiE9.i8I 

640 L-ATBaes.aeo 

638 t*iT8aA3.aCF 
660 MTAaB9.i82 
6?9 [.ftTAaE9,B01 
680 C'ATAaSS.iBl 
€99 D«TA#69 



2984 REM Xyyyyvyv.^yyyjyyyxXxxXxxXXxxX 

2895 REM 

2910 GOSUB9BB0iltEH Distrib. alea. des 

2929 FOR KK < 9 TO 93PP-TM<P(KK >> 
2938 PLOT 27+AT.18.PP+I2B 
2849 GET JJ» 

2859 IF JJ»-"P" THEN 3989'REn ran9ea* 
nt dams le aanier 
2969 IF JJ«<>"P" THEN 2848= REM entree 

2865 REii'dePlacenvent de la Piaca 
„ 2878 Pl-TP<0)=X-22 Y-l 

409 JSR KA99 ^o?9 Xl-XYI-Y 

483 JSR K6DE sijqg p L rjj X*AT.Y-PP*128 

496 BCS aaajo 2190 GET GG» 

488 LDX taJ»r> ?118 GG=ASC^GG»> 

48A JMP «C4«5 2129 IF GG - 9 AND X < 33 THEN X-X+l 

480 SEC 2130 IF GG - 8 AND X > 22 THEN X-X-l 

48E LDft tCE 2148 IF GG - 19 AND Y < 9 THEN Y-Y*l 
2139 IF GG » 11 AND Y > 1 THEN Y-Y-l 
2169 IF GG-32 AND Pioill THEN RING'S 
i.irn.'.'iiif, ■ ,.,-, ( , c [„„, (.,, P ,,, er ,, c . icr 



SBC Vi81 
412 STA «88 

414 LDA «CF 
416 BCS ailH 
418 -iBC 8»81 
41A STA 461 
41C RTS 



798 PEM 
701 REM X 

792 REM X PESTORELINE ATMOS 

793 REM ;•: 

794 REM K'/.:«yyyy//i'«/yy/,/>/„ l 
705 REM 

719 
EXT 
720 FOR I . M09 10 ||41? 
739 REAP PL POKE I.RL NEXT 
749 DCkE»2F5.t480 
759 RETURN 
769 DATH»29,aE2.aCA 
779 t'«rAe29.»B3,»r.t 

799 DATAaB9.*05 
799 DRTAaA2.t5H 



2179 IF GG-32 THEH 2229 = PEM or. Pose 
1 Piece 

2188 P2"TPiX-22*'.Y-l;*t2> 
2199 IF PI =■ 9 THEN Pl-2 
2299 PLOT K14flT.ri.Pl 
2295 P1-P2 
2210 GOTO 2090 REM nouvtau d»Pt»cetni 



2248 GET mh« 



M2'«PP 



- I Ml II .-".\u-, PFJt 



3289 IF VV - 32 AND WCXX-5K YY-17»3 
V2> - III THEN PING 

3218 IF VV - 32 AND A(CXX-3*<YY-I7>»3 7168 PAPER 
V2) <> HI THEN 3268 

3228 PLOT XY*AT.YX,A8 

3239 AB-A<(XX-5+<YY-17)*3V2) 

3249 PLOT XX*AT,YY,168'XY-XX'YX-YY 

3238 GOTO 3159 REM nouveau dePlacemen 
t 

3268 PP-A<fXX-5*<YY-17>«3V2) 

3278 J-J-l 

3288 FOR I - (XX-3*<YY~I7)tS)''2 TO J 
■A<I>"A<I*1>'MEXT 

3298 XX-3'YY-I7 

3293 A<I)-I11 

3388 FOR I - 8 TO J 'PLOT XX*RT,YY,PX 
I) 

3318 XX»XX*2'IF XX - 13 THEN XX«3'YY- 
19 

3329 NEXT 

3339 PLOT XX*AT,YY,111 

3348 GOTO 2839.REM retour • la fttlact 

3580 REM xxxxxyxxxxxxxxxxxwixxxxxxxxx 
3591 REM X x 

3392 REM X Verif. reste 4u aenler X 
3W3 REM X x »Pace-iCHRtX128 

3394 REM Xyyyv^ywj;).K > (y»i<nocy»)(xii»xX 7298 PRINTCHRtX 132 

3503 REM 

3519 FOP IK - 9 TO 8 STEP -I 

3520. IF ACIK) - 8 OR AUK) - 111 THEN 

3598 

3338 PP-A(IK)A< IK)-8'RP-1 

3548 IF IK < 5 THEH X-IK*2*3' Y-I7 

3359 IF IK > 4 THEN X-IK*2-3' Y-19 

3360 PLOT X*AT.Y,1M 
3578 GOTO 2039 

3589 NEXT 

3590 RETURN 

4900 REM yy 

4901 REM X 

4902 PEM >; Verification du Puzzle 

4903 PEM X 

4004 REM X - ■ ■"- '-ft - "y - ■ v ■ 

4005 REM 
4010 FA-9 

4010 FOP I a 8 TO 95 
4830 IF TM' I . •> TR. J . THEM 4139 
4040 IF 1W I » ■ J2 AND -" 
I -2 ■ THEN 4150 



KCHRtXll 1 



8398 PRINTCHRK 1 1 i; CHRtX 1 1 
8409 PRINTCHRtr 132 >j IHPU1 
votre choix (RET) 1 "jCH 
8418 IF CH » 8 THEN 8378 
8458 CH=INT(CH)'IF CH < 1 OR CH > 21 
THEN 8898 
8468 GOSUB 18e89*<:CH-I )tl998 
8599 RETURN 

9888 REM xxxyxxxxxyyyxyxxxyyxxxxxxyxx 
9881 REM X x 

9982 REM X Presentation X 
9883 REM X x 

9894 REM Xxxxxxxxxxxxxxxxxxxxxxxxxxxx 



PRINT 
7878 PRINT 1 
e aPParais-* 
7888 PRINT"-»«nt dans l* Petit carre 

7890 PRINT-droitc 

7188 PRINT'PRINT" 
bas a Qa.uche serf 

7110 PRINT'de 'P, 

<Je r*n»e-" 

7128 PRINT"-iwnt Provisolra (Max. 18 
Pieces)." 

7138 PRINT-PRINT'PRINT'PRINTCHRaK132 
APPUYER SUR LA BARRE D'ESPACE" 

7148 GET RRSIF RR* <> " '■ THEN 7148 

71 58 CLS 

7168 PHPERllfiVe 

7178 PRINT'PRINTCHRtXl34)" Lorslue la 9PC5 RE " 

Piece aPParait , faire •■ " 10 CLS 

7188 PRINT'PRINTCHRtX132)"R"iCHRt( 128 W2e F0R ' " 4? 899 TO 48039 POKE 1.8 
)~Pour ran»ei»ent dans la Panier" NEXT 

7198 PRIHT'PRINTCHR«<138>" S"iCHR»(l 9939 PRINT 'PRIHTDH»;CC«" J"'CC»"0" iSPC 
28)"aour Pieces auivantes" < 13); "MIHl-Pi.iZZLE" jDH« 

7289 PRINTCHRaxl38>" C"iCHR«< 128)"PO ^ e48 PRINT 'PRINT -PRINT 'PRINTCHRtX 145 > 
wr Prendre une Piece du Panier" 9858 PRINT'PRIHT 

7219 PRINTCHRK132)" Fleches d'e 9868 PRINT- Les Mini-Puzzles 4ue vou 

ditions-jCHRaj<128>"Pour »»■ » allez" 

7228 PRINT" dePlacer dans le Pa " 7e RRINT-tfevoir faire coM-ortent 96 

nier- Pieces" 

7238 PRINTCHR»(I32>" Barre d'esp 9*88 PRIHT"de la tallle d'un caracter 

ace"iCHR»< I28)"Po>jr Prendre la" ••" 

7248 PRINT" Piece sur Ufl.jelle 9998 PRINT- Attention certalnes eiec 

on se trouve"; as aont" 

7238 PRINT'PPINTCHRtX132)-p";CHR»(ij8 9189 PRlNT"identi4ues. " PRINT 
>"Pour PUcewent dans le Puzzle" 'H8 PRINT 'PRINTCHRfx 134 )" Vous »v 

7269 PRINTPRINTCHRaK138)" Fleches d " '• c^ix antra '"'PRINT 
'«ditions";CHR*U28>"Pour %• dePlacer" 9129 PRINT 'PRINTCHRtX 132>" Cholsir vo 
j tre Mini-Puzzle ">CHR»X 129); "1" 

7278 PRINT" sur la Puzzle" 9138 PRINT 'PRINTCHRtX 132)" Ou le Pren 

7288 PRINT 'PRINTCHRtX 138)" Barre d'e*"' » y rtaaerd "iCMRtX 129>t "2" 

Poser 1« Piece" 9149 PRINT'PRINTPRINTCMRtX I34>" E 

S"iCHPtX I28) ntr "« 1'oation choisie > -i.GETRRiPR 

Pour Pieces suivantes- 1NTRR* 

7399 PRINTCHRtX 132)" R";CHRK128) 91 58 PR-VALCRR8) 

Pour recuPerer I p. du Panier" 9!*8 IF RR < 1 OR M > 2 THEN 9808 

7318 PRINTCHRK132)" C"]CHRK128> ?!2 9SJS C08UB 6880.9396 



.. . lace 
7328 PRINTCHRtX 131)" Fleches 

d 1 editions" CHRi.' 128>"Pul»" 

7339 PRIHTCHRX 131 >" Biirra <i' 

esface" 

7349 PRINT PRINT'PRINTCHPtf 133)" AF 
PUYER SUP LA BARRE D'ESPflCE' 
xvxwyyxxxxxyyxvyxyyxxy. 7338 GET RP* if PRt O ■ " THEN 7538 
X 7368 PAPERO IHK2 
X 7379 RETURN 
X 9988 REM xxxxxxxxmo 
MX 8991 REM ;< 

6992 PEM y. Choi, du Mi^i-Purrle 
8993 REM X 
8004 rem :; 
8803 REM 



91 68 RETURN 
9588 REM x*xxxwxxyx.yxxxxxxxxxxxxxxxxx 
9381 REM X x 

Determination aleatoire X 



I' 9382 REM 

9303 REM 
IP 9384 REM x 

9593 REM X 
1 9306 PEM X: 

9587 PEM 

9310 CLS 

9320 PRINT PRINT PRINT 1 PRINT 1 PRINT I PR 
y t NT[>H1 j CCr'M-iSPCr 12 >t "INITIALISATION" 
X 9339 PRINTDHiPPIHTPRIHT'PRINT 
X 9549 PRINTCHRK 134)"P*Puvez sur une t 
.; ouche. . ." 

9550 GET DH« ■ DA-ASCC DR» ) 
TRf I >«0 OR TP &810 CLS 9360 FOP I - 8 TO 5»DA A-RND< 1 

8028 PRINT RPINN'Ht.rir* i-.'-i »"[>". <■?, 95?8 A-ltlT' A»l " ■ ' 



du Mini-Puzzle X 

X 
'fcxxxyxvxKxxxyxxxxxyyxX 



> NEXT 



498 JSR KRE2 2278 IF nit: 

483 JSR iC663 s .- incorrtcU 

406 9CS i49D .^::Lt PEM ^rrectior, d 

408 LDX M3R. J2M PR*32 PJ»TKX-Jf2- 



" THEN 3130 REM rKV» 

ce du Panier 

C" THEN 2240 REM tntr 



_.i Mlni-PuKU" 

£2*1 lY- 1 ^^ n PRINT l-RHII PRINT PRHITrNRt. 1^1 . 

24 THEN X-I*1P ^0 JI > P p l"T PRINTr-HPt. 1 ";', 1- QlH I Furz 

le choiiisiez-wous »" 

W THEN :-.-|-. J SPSO pRIHT FRUIT PRINT PRINT FRUIT PR 
INT PRINT PRINT PRINT PRINT PRIM FF1II 
48 THEN K-I-14 T PRINT PPIM PRINT PRINT PRIM 

8960 PLOTS. 9,-Yoke T'-.irtin • ><] ,- 



9398 PRINT'PPINT'PPINT" Ch*p9a*ent du 
l-Puzzle..." 



Suite psg* 19 



18 



CARACTERES ACCENTUES 



Ce programme permet de d6finir jusqu'a 64 caracteres, 
toutes tes formes de caracteres, aussi bien graphiques 
qu'accentuees, sont permises. 



PC 1 500 



F. LEFEVRE 



38 caracteres sont deja dermis (a, a. a. e. e. e, e. u, u. ii. 6. 6, i, T. 
c.-.-. T . 1 ■'•[J > r i <P,i2.X>.^.if. e J^ 1 *,^,^^,>.± i ^) 
ainsi que 4 autres: (—,■,) , r ) . 

lis sont done dJredement accessibles grace a la pression de quel- 
ques touches aussi bien en mode RUN. PRO ou RESERVE. 



- Faire NEWS 3 AFC afin de liberer les 567 octets necessaires 
pour le programme. 

• Rentrer le programme basic. 

- Faire RUN puis NEW afin d'erfacer le programme qui est mainte- 
nant inutile. 

• Ensuite (aire POKES 7858. & 3A. & E0. & 80, & 39 puis POKES 
7904. & 55. 

- Des maintenant, la touche SHIFT se comporte comme la touche 
SMALL; elle permet dacceder aux caracteres redefinis de la 
(aeon suivante: 

On disposait 'deja des majuscules et des minuscules grace a 

SMALL); maintenant (grace a SHIFT et aux gabarits I. II, 111 de la 

tonction RESERVE), on dispose . en plus, de trois claviers diffe- 

rents dont on peut rederinir a notre aise les caracteres; deux 

claviers, le premier el le troisieme sont deja definis, pour obtenir 

les caracteres programmes, il suffit: 

- de seleclionner le gabarit grace a la touche 

• de visualiser le contenu de 1'Gcran grace a la touche RCL (s'il y 

a eu pression de la louche ) 



- d'appuyer sur la touche SHIFT puis sur la touche correspon- 
dante au caractere souhaite (la pression sur A donnera le carac- 
tere "6" a lecran). 

Comment programmer le deuxieme clavier? 

Le generateur de caracteres se situe aux adresses & 3A0E a 4 
3A8F. On peut de-finir jusqu'a 26 caracteres (On rappelle qu'un ca- 
ractere comporte cinq codes pour etre defini, ainsi 'a' s'ecrit & 38. & 
44. & 44. & 3C, & 40 et T 8. 00; & 00. & 70. & 00. & 00.) 
Le programme qui suit, permet de definir le deuxieme clavier: 
10: FOR I = & 3A0E TO & 3A8F 
20: ON ERROR GOTO 100 
30: READA: POKE I.A 
40: NEXT I 
50: DATA... Le nombre des donnees doit etre un multiple de cinq et 

ne dort pas d&passer 130 (26 x 5) 100; END 
Remarque: L'imprimante ne reconnait pas ces nouveaux caracteres: 
elle laisse un espace blanc. Une asluce doil exister; ii ne reste plus 
qua la trouver... 



Premier clavier (Gabarit I) 
ECRAN 



mmmmmmmmmm 
cd t cii db cfa cb m & m cb 
mmmcbiicjjiiimm 



Deuxieme clavier (Gabarit II) 
ECRAN 



m 



raEmmrammmcDci] 

CLAVIER A DEflNIR 
LT~! CD CD r~P fl P L'UjrLI5 t ATEUR~] [JJ 
Emplacement memo! re : " ' " ^ ^ 

cd m en (£«« 1 ^« B l n J m en m 



Troisieme clavier (Gabarit III) 
ECRAN 



mmtximmmmmcDLT] 
raAsmdimmrfDCi] 
mrndDtiLiramficL] 



m 



USEfl CARACTERES 

Q.CCENTUES 

**PC 1500** 

2:REn LEFEURE F. 

19/09/84 

10:FOR 1=0TO 1000 

28:READ A; IF 0=8F 

pgoto leas 

39: POKE U38C5+I) 
> 

40: NEXT 1 

58: DATA iBE, SE4, ft 
2C, 848, fc?B, &4A 
. S50, IB?, 1.S83 
,2, SD, £E, &4D, 1 
.£38, 6, £EB, 876 
, 8.4E, 2, &8E 

52: DATA 5, &BE, 8E2 
, &4fi, S8E, 824, 8 
8E, &E2, &4fi, 8ED 



, 826, S4E, 8, 889 
, 8 IB, &FD, 888, 8 
48, 839, &4A 
5i:0ATA 832, 8F2, 8 
88, 8E, &FD, 8C8, 
8B5, 0, 8F7, S8B, 
4, 8FD, &8A, 83E, 
8E, 8FD, 88A, 88E 
,1,5, 8FD 

56: DATA 8A, SB7, 8F 
,889, 3, 8BE.&E3 
,83F, 8F9, 8EB, 8 
7B, 8E, 848, 89A 

60:rjOTA 821, 8A0, 8 
77, 8A1, 865, 8A2 
,822, SA3, 871, 8 
A4, 829, 8P5, 875 
, 806, 869, 8A7, 8 
6F, 8A8 



62:0ATA 870, 8A9, 8 
61, 8AA, 873, SAB 
, 864, 8AC, 866, 8 
AD, 867, 8AE, 868 
. 8AF, S6A, 8B0, 8 
6B, 8B1 

64:DATA 86C, 882; 8 
7A, 883, 878, 87E 
,863, 87F, 876, & 
B1, 862, 885, 86E 
,87B, 860, 87D, 
, 

70:DATA 87!, 8B6, 8 
77, 8B7, 865, 8B8 
, 872, 883, 874, 8 
8A, 879, 8BB, 875 
, 8BC, 869, 8BD, 8 
6F, 8BE 

72: DATA 870, 8BF, £ 
61,8C0, 873, 8C1 



. 864, 8C2, 866, 8 
C3, 862, 8C4.868 
,8C5, 86P, 8C6, 8 
6B, 8C7 

?4:DATA 86C, 8CB, 8 
7A, 8C9, 878, 8CA 
.863, 8CB, 876, 8 
CC, 862, 8.CD, 86E 
, 8CE, 86D, 8CF, 
, 8 

80:OATA 861, 8D0, 8 
73, SD1, 864,802 
, 866, 8D3, 867, 8 
D4, 868, SD5, 86A 
. 8D6, 86B, 807, 8 
6C, 8D8 

82: DATA 82A, 8D9, 8 
78, 8DA, 863, 8DB 
.876, 8DC.862, 8 
DD, 86E, 8DE, 86D 



. 80F, 0, 

198:DATA 838, 845, 8 
46, 83C, 848, 830 
, 84A, 849, 830, 8 
40,838,845, 844 
, S3D, 840 

]02;DATA 838, 854, 8 
56, 855, 818,838 
.855, 856, 854, 8 
18,838,856,855 
, 856, 818 

104:DATA 838, 855, 8 
54,855, 818, 83C 
, 841, 842, 820, 8 
7C, 838, 842, 841 
,822, 878 

186:DAT0 83C, 841, 8 
40, 821, 87C.830 
,840, 843,840, 8 
30, 838, 845,844 



,845, 838 
108:DftTO 0, 2, 873, 2 
,0,0, I, 87C, 1, 
,&C, 852, 832, 81 

U0:DATO 8, 8, 820, 8 
IC,8, B, SIC, 820 
. 8, 8, 8, 4, 83E, 4 
,8 
1 12:D0TA 8, 810, 83E 
,810, 8, 8,0, SB, 
7, 0, 0, 82F.841, 
841, 0, 0,841, 84 
1, S7F, 0, 8FF 
1000:FQR I=0TO 10 

00 
1B10:ON ERROR 

GOTO 2080 
1020:REAO fl:P0KE 
C£3O90+I),O 



54, 834, B1C8 
16,815,8,844 
, 840, 851,8 

1058:DATO 8,851,8 
40,844,0,8,8 
24,82E,824,8 
,818,824,818 
,824,818 

1]00:DOTO 8ED.876 
, &4E, 840,888 
.8, 8B5, 812, 8 
OE.838, 8EF.8 
BO, 838, 8C5, 8 
ED, 876, 84E, 8 
20, 88B 

1182:0010 4.8B5.8 
48, 89E, 810, 8 
B5, S?£, 89E, & 



1038: NEXT I 

1058:DOTA S4I.87F 
.841, 1, 3,8, 8 
55, &7F.855, 8 
,858,864,4,8 
64, 858 

1052: DATA 863,855 
,843, 841, 863 
.842,824,818 
, S20, 840, 830 
,848.848, 838 
, 848 

1054:DATO 2,834,8 
48, 834, 2,820 
, 852, 845,849 
, 831, 83E, 855 
,815, 816, 8 

1856:0010 8,2,5, 7 

,0, 824, 822, 8 

24, 82B, 874, 8 

■ 



PIECES 



£**„ EN VRAC 

1WM PEM 000000000000000000000*50000 

19091 REND 

13902 PEfl Vc*o TSUNO 

13993 PEM 

JTO* PEM Qooooooooor^ooooooooooooooO 
19993 PEM 

19919 '19199 



19949 FOP I=»6899+f 33*8) TO 4B339+' DC 
*9)-l REflO PO POKE I.RDHEXT 

19959 RETIJPH 

19199 PRTR94 

19119 DRTR32.32,32.33.34.33,36.37.38, 
39.32,32 

19129 DRTR32.32.49.41,42,42,42,42,42, 
43.44,32 

19139 DRTR32. 32. 45. 4$, 47,42.42,42,42, 
42.43,32 

19149 E>flTfl32.49.59,5I,52.53,34,55,56, 
57.39,32 

19159 DRTfi33.59.42,42,69,ei,62.63.64, 
63.43.66 

19169 DRTR67.42,42.42,63,32.32.69.70, 
71,42,72 

19179 D0TB73. 74. 42, 75. 76, 77,76. 73.69. 
81,92.32 

19199 W)TfiH2.83,84.83,36.87,88.a9.99. 
91.92.93 

19299 D«Tfi9,9,0.9.9. 1.3.7,0,9.3. 15.63 

63.63.« 

19291 D«T(i8,31.e3.63.63.63.63.63.9,l. 
47,63,63.63.63.63 

18292 0«Tft9,62.63.63.63.63.63.63,9,9. 
32,56.62,63.63.63 

19293 DfiTfffl. 9. 9. 9-9. 32, 56. 69. 8. 9. 9.1. 
337. 7 

19294 Dfirftl3.31.63.63.63.6i.63.63.63. 
63-63,63.63.63.63,63 

19295 0ATR62. 63.63.63.63.63. 63.6-3.9,9 
.32.48.36.56.69.69 

19296 DflT915. 15.31,31.31.63.63.63.63, 
63 . £3 .63 . 63 . 63. 63,59 

19297 I.m(*53.< : .?.63.' r .3.«3.< ; .3.23.43.*2, 
62.63-63.63.63.63.63 

19299 PflTfW. 9.9, 9- 1.1-1.1.63. 62. 53- 41 
.3.15-63.63 

1929? D9TR53. 4 1-9, 31, 63. 63. 63. 63-23- 6 
3.63.63.63.63-63.63 

1921 9 0fiTFi63.63.63.61.59,48.'t8,4e,63. 
63, 59- 39,9.9. 31. 39 

19211 C*ITH62-61 -63.6. 8-0. 32. 16, 63. -.5. 
46-29,39-9.1.2 

19212 r*>Tft63-63.63.35.9-6I.63,-l5.6;.6 
2-62- 69.56.69,69.62 

19213 DflTft3-7,I5.31.63.--;3,' ; .3.63.63,63 
-63.63.63-63.62,62 

18214 DHTfl49.5I.32.32.0.0.0.0.5.639. 
0.9.9.9.0 

19215 [*Tftl6.32-.8,9,9.0.9,8.3 1 1,8.8. 
12.4,6.2 

10216 DftTH6351.3.3,l . 1 . I . t .9.9-0.0- 3 
2-32.32,32 

19217 DfiTft7, 15,15.15,21.31 .31 .31.68.fi 
9- 60- 60. 52. 59-5H 4--. 

19213 P0TR9. 1-2. 9- 8,0. 3. 4, 2. 6. 14,9.0. 
0-69.2 

19219 WIRI.l, 1.1.1.1 .3.3.32,32, 3.1'. 32 
.32.32.32,0 

19229 DftT831,29.14. 14.6,«.Z, 1.63,63,6 
3- 63. 63. 31 31 .15 

10221 DATH63. 63,59-55.89,57, 61 ■ •■ 57 
56 - 69 - 63 . 6? . 63 • 6'< . 6 3 

19222 [•ftTft9.0.32.56-60.6363.62-fi.9.0 
.9-9.9.48,24 

19223 fjHrH15.20.2.1.0.9.89.63.37.2.6 
9.9.9, 1.3 



19224 DflTft3. 7, 15,15,31.63.63.48,63,62 
,62,69.36,48,32.0 

19223 DftTft33-3. 1.0.9-0.0.9.63.63,6.3.3 
1.7,9.9,9 

19226 0RTR62.63.63.63.63.69.9.9.31.13 
.33,48,9,0,9,1 

19227 DF7R61. 37, 48. 33. 7. 13.39.42,14,3 
.32,32,16.16.48,40 

19228 DRTR8, 32,63, 15-8,0,0, 1.7.31.60, 
57,2.14,25,37 

10229 C-RTR48. 16.48,48.36.20. 19. 13.9,0 
.8,9.9,8,32,63 
19239 DRT80.9,9,9.9.9.9.62 
1 1999 PEfl 000000000000000000000000000 
11901 REM 

11992 PEfl SPIRO'J 

11993 REM 

11994 PEM O0000000000000000000000000O 
11993 REM 

11919 U1198 

11939 PEftOtiC 

11949 FOP I =■ 9 Trj 93 PERO THCI}>NEX 
T 

11959 FOP I ■ HEsaog*' 33*8 > TO ■8890*'' 
l>C*8)-l PERD RD POKE I -RD NEXT 

11969 PETiJPH 

11199 DRTR98 

11119 CfiTR32. 33. 34, 35. 36. 37.38.39.40, 
32,32,32 

11120 [>RTR32,41,42.43.32,44,45,46,47, 
48,32,32 

11130 DRTR32,49,50,51.52,53.34.55.32, 
36.57.32 

I 1148 [)f»Tfl32.32.58,59.60-61.62.63.64, 
65. 6*. 32 

11150 DRTfl32.32.67,6e.63.78,71.72,73. 
74,75-32 

11169 DRTR32.32. 76.77.78. 79.38.31,82. 
33.84,32 

1 1 1 78 CfiTfi32 . 32 . 32 . 35 . 86 . 87, 83. 39 . 99 . 
91.32,32 

11188 0RTH32. 32. 32,52.93,94.96.97,32. 
32.32,32 

11290 DflTR0,9.9.9.0. I . 1 . 1 .9.0,3,31 , 16 
.16-16,16 

11201 DfiTR2, 6. 58. 3. 3. 3.2. 2. 9.48,63, 32 
.0.9.0.9 

11292 &RTR0, 15.62. 12.3.8,17. 17,9.3.9, 
9,0.43,63.31 

11293 ORTR0, 9.9, 9.16,43.32.9.8,9.9,0, 
0,9,9.32 

11294 DftT85, 3- 3- 1.0. 0.4, 7. 16, 16-16,24 
,40.49,29.12 

11205 DftTH2.2.2.?.2.2.1.1.34.34,34,33 
,29-20-12.12 
11296 OOTfll, 2-2-2,3,3. 3, 3. 19, 54, 60,56 
1616, 16-29 
1 1287 ('RTR43..;4. 12,6.3. 1 .0,9.9-9.0.8, 

g I, :,-. 1.. 

1 1398 r-RiH-t. i,>. -1. 3. 0,8. 0.3, 33.26.7.1, 
48. 15.8.8 

[J289 OflTfit -8,8.32.24,4.63.38,8, - « 
,16-57.63-8.8 

11, '-19 ['hti-i 1 1 ,59,4,8, 12,8,1,1,61.3. 

I.I ....!., 1 

1121 I f«lft:'8.?O.24.24.40-43,52.52.8.4 

■t .'. 1 . 1 .0.0 

11212 OftTftii. 8.0. 8.0,0. 32.32.9,1,9,0.0 

.,. .. H 

11213 ['RTR36. 40. 40. 48, 40. 48-48-48. 0.0 
.9.0.0.0.0,2 

I 1214 r*lTM8. 11. 8.H. 8,0.0. J.0-8, l.l»l.l 

1.1 

11213 0«TfV34, 42, 25, 25. 57. 16,16.16.0,0 
.0,14,17, J2.32, ■■■:■' 

U2I6 DflTR0.0.8.e, 3,47.31 .15.16.16.8. 
56. 60. 60. 69, 60 

11217 08109.0.0.9.1 ■>_. >,2. 16. 16, 17, 17 
.56-16.32.32 

11218 r.'HTfi6.6,6;. 32.51-24. 14. 12, 3.7.7 
.- 6-8 8,0 

11219 r.f*rfli. 1. 1. 1. 1. 0.(i.n.t6.i6. 16. 16 
,9,B. 16.48 





1 1229 PflTfl32,32.16.12, 13.4,4,62, 15. 15 
.8.16,48.0.9.1 

11221 t>RTR62.62-2,2.2. 1.15,63,3, 1,1,1 

.0.0,0.0 

11222 DRTR8. 0.0, 32. 32. 48, 24. 12,9,0.0. 
9.9.24,4,3 

11223 ORTR0, 9, 8,3. 9. 1.7, 63, 9.8-9,32, 4 
9.49.32,9 

11224 DRTR55,8.9, 1 . 14, 9. 3. 32. 1 . 8.9,63 
.30.60.48,8 

11225 0RTR39. 31,6,4, 36, 29. 29. 4, 48. 8.0 
.9-9,9,9.9 

11226 DRTR14, 1,0, 0,12, ?,14, 49. 1,32. 24 
.6,1.48,13-0 

11227 DRTR63.49, 18. 12, 1,35.38,31-1.7, 
31,62,49.9.9,43 

11229 0RTR32-43. 43. 15,9,0,9,0.0,0,1.6 
2,0.0,0,0 

11229 0«Tfl8, 16.32.0.9.9.9.9.48,48,29- 
3.3.1.0,9 

11238 ORIfl63,32.32.9.9.32.48,31.0,32. 
16,16,16,31,49.32 

11231 PRTH9.8.9,9,8,9.0.0. 15,9, 13,48, 
32,32,32,43 

11232 DRTR32,24,32.48. 16,24,24,48 
12098 REN o 000 o •-. o v <■■ o 00 »o'i 0^.000000000 
12931 REM 
12982 REM CR8T0H 6 
12993 REM 
12904 PEH ri,-. r , oo ^, O0 -ir.r,ooooooooooooooo0 
12095 PEM 

12810 ! 12199 

12038 PERDOC 
_ 12049 FOP I = 10 93 RERO TMf I > HEM 
* T 

12959 FOP I = •P388»'33*8> TO 18398*' 
0Ct3)-l ;PFRr< PD POKE I .RD NEXT 

12969 RETURN 

12193 DRTR87 

12110 DfiTR32.32.32. : i2.32.33.34.32,32, 
32, °2. 32 

12129 D0TR32,32,33,35.36.37,39,39.40, 
41.42,32 

12133 DRTR32, 32.43.44,43,46.47.43.49. 
58.31,32 

12143 DflTft3.3,52.53,54-35,56.57.58.59, 
63.61.32 

12150 DRTfi32.62.6?.64-65,66.67,68,69. 
79.71,32 

12168 DRTR32. 32. 72,73,74,75.76.77. 78. 
79.83-32 

12178 DATH32. 32,31,82.83.84,83.32.32. 
32.32.32 

12189 0RTH32.32.32.32.32.81.86.32.32. 
32.32-32 

12290 DftTfl9.9.0.0.9.n-9.1 .0-9.0-0,8.(1 
,16.32 

12291 OflTJW, 8,0, 0,0, 0,0, 32-0. 8.0. 1.3, 
6.4,8 

12202 (ihTR7. 12-24.32.0.3.3I .63.8.9.3. 
7.31.69-63.63 

12283 DftlfW, 0.63. 0.36, 63. 63. 63. 3- 9. 63 
,14.3.48.62.63 

1. .1.1 DflT00,0, 62,3. 0,56,7, 48,0, 0,0,48 
,24,0,9,56 

12235 D0T83, 8. 0-9- «,! 5- 0,0. 48. 12,6.1 , 
8-63,15,63 

12296 DRTR4 I, 27. 27. 47. 31. 63. 63. 63. 63, 
63- 63. 63- 63- 33. 56. 32 

12297 DRTR63, 63. 33.9.9.9.0,0,63,63.63 

12298 C-RTfl63.63.63.63.63.63.56.6a.e2. 
61.62.63.63,63-1.0 

12209 DftIfl6,32.24.32.48.36.69.30.0.O, 
9.9.1. 1 .2,2 

12218 DRTR1.3.15.48.4.9.27.II .63,63.6 
3. 13. 7. 51. 6|.I6 

12211 DATR63.63 • i- 63, 61 .58.36.36. 35, 
4.3.3.8.8,9.12 

12212 DRTR12-13.I.3I ,8,0.9.0,0,32.32. 

12213 CRTR62. 31. 3. 1.32. 16, 16, 16, 0.3,0 
.32.48.43.49.24 



12214 DRTfll 1.4. 0,0, 9, 9, 9,9. 2, 1,8,0,8. 

12215 DRTR9.0.35.16.8.15.13.15.17.43. 
63-3-7.63,63,63 

12216 DftTR43,60.46.4.2.33.32.48.14,7, 
3.1.9.0.32.16 

12217 DATR0, 32, 63. 63, 31, 0,3, 0,8. 1,62, 
60.37,0,3,4 

12218 DRTft32.32.9.9.32.48,l,3,Z4,24.4 
8,62,49,32,68,63 

12219 DHTR0, 9. 9- 9 .32- 16. 8. 48. 13, 13, 15 
,11,11,3,4,2 

12220 DRTR63 ; 63-63. 63. 63. 63, 31. 7.36, 6 
0.62.63,63,63,63,63 

12221 DRTR12, 13. 15,40,52.39.56.37,0,6 
3,60,56,48,39,56,8 

12222 DflTR24,32.8,0,7.37,6.3,6,13.26, 
37,38,1,0,0 

12223 DRTfll 1,50, 4, 50, 8. 63, 0,0, 32. 32. 5 
6,8,16.32,0,8 

12224 DflTfll.8.8.0.0.9,9-9.9.48.14.0.1 

12225 D0T013. 12.21.41.1.63.0.9.38.37. 
9,9.18.2.36,6 

12226 O8TR0. 32, 24, 28, 18. 38, 43, 11. 11, 3 
8,22.12,4,0,0,0 

En ralson de la longueur 
du programme PUZZLE, 
nous passcrons la suite la 
semaine prochalne. 
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^ DIAMANTS 



Suite de la page 16 



1760 CALL HCHARUO, 7,33, 30)11 CrtLL HLHAf.' 
(12,3,33.JB)n CALL HCHAftlia,3,33,3B) 1 1 

CALL VCHnft(2,4, ;s,3) ti CftLL VCMAR(2, 39 , 3 
3,5) 

1770 COLL VCHAR< 11,4,33,9) I ! CALL VCHAK ( 
11,29,33,9):: CALL NCHAR{3, 4. 34 ) : : CALL 
HCHARI3,2'?,34>! t CALL HCMAft (3, 4 . 34) 
1780 CALL HCHAR13.29.34) I: CALL HCtlARKJ. 
6.34):: CALL HCNAR (8, 27, 34) : : CALL HCHAR 
(10,6,34):: CALL MCMARI JO, 37, 34 I 
1790 CALL HCHM(12,4 ( 34)f I CALL NCHARI12 
,29(34)11 CALL HCHARUB.4, 341 :: CALL HCH 
AR(18,39,34I : : CALL HCNAR if, 27,33) 
1800 ACCEPT AT(9. 1 7) SI /t 18) VAL IDATE (UALf 
HAliC* 

1810 IF SC RECORD THEN T0*-MO» II SCM-MS 
C :i MO»-NO« :: MSC-RECORD :: NU»-C» :: 
RECORD-'JC ii GOTO 1B40 

IB20 IF SC^MSC THEN T0«-MO* i: SCM-MSC i 
: M0*-(;* :: MSO'SC :: GOTO I B40 
lll-i. II :.C HCH THEN T(1»>C» :: SCrl-SC 
1840 DlSPLAV ATI I 3. 4) SI 7E (23) iNO«&" t "h 
5TR«IRECBR0) 

1H30 Ol'.itiM AT(IS ( 4)S12K(23>inDH" t "h 

3Tli»(MSC) 

i860 DISfLAr AT(l7,41BIZE(23)iT0«|i' t "b 
STR»(!;c«) 1 1 display AT (23, Hi "WOUI i /vim 
B i i JOUI n.'.i. v.r JO" 

Ki/o ci i I. FT AT (22,20)BEEP SI 7E 1 1 I VAI. 1 DAT 
F.I"ONun"i I RHP* 

1880 ii mi* -o ■ i.m*«"o" iMtN cm I r. 

,}f.\-.-,t i : : BOTH 100 

1890 CALI in ("ii-. .- : tNIi 

1-K.n.t J* Ml-*.:,!.! : i .I*-"- M'i"'.,l* :: .!*-•:. 

ii.j*fj*,i i ri(.i*> i.-.n : roK- j-i rii 3 u ca 

1. 1 HCimr^f I ,J+B,ASC(BI (i*(.)*..1. I ) I i : : Nl XI 



LE L0G1CIEL DE LA SEMAINE 

DALLAS QUEST par/VICC pour : CBM 64 
A\ar\ et Apple n. (en anglais) 



Nous voici enlin debarasses 
des deux nains piraleurs. 
grace a une bombe Ihermonu- 
cleaire soigneusement camou- 
(lee en gram de cafe. Dorena- 
vant. la voie du seneux et de 
la iuste description des logi- 
ciels aura valeur de toi. Ainsi. 
ne sorlez plus votre diction- 
naire en vingt-deux volumes, il 
est inutile. 

Auiourd'hui. nous ailons nous 
occuper de la disparition tragi- 
que de JR. Sans nouvelles de 
lui depuis plusieurs semaines, 
Sue Ellen fait appel a vos ta- 
lents de detective pour decou- 
vnr les tenanls et les aboutis- 
sants de cetle affaire Rien de 
plus facile, en apparence, que 
de refrouver quelqu'un de rim- 
portance du disparu: mais 
apres quelques tatonnements. 
vous verrez a quel point la 
piste a ete brouillee. afin de 
vous laisser vous egarer dans 
des lieux ou le momdre faux- 
pas conduit a une mort cer- 
tains et irreversible. 
De plus, pour vous compliquer 
la tache, vous ne pourrez pas 
demander de renseignements 
aux dilferentes personnes que 
vous rencontrez. En effe!. les 
actions son! plus utiles que les 
paroles dans ce logiciel ou 
pour bien des situations le 
nombre de gestes que vous" 
pouvez effectuer vous est 
comple. Bien sur sr vous etes 
suffisament observateur. vous 
pourrez. tel Sherlock Holmes, 
deduire de voire environne- 
ment bien des indices utiles au 
deroulemenl de votre enquete. 
De plus, a tout moment, vous 
pouvez (aire appel au stock de 
renseignements qui vous est 
genereusement alloue au 
debut de votre aventure. Au 
depart, vous avez droit d'ulili- 



ser ce joker' neuf (ois. II est a 
noter que bien souveni le mes- 
sage que Ion vous delivre est 
sibyliin. 

Si vous etes debrouillard. vous 
pourrez malgre lout arriver a 
quitter la propnele familiale 
sans le moindre dommage cor- 
porel. Mais votre seule echap- 
paloire se situe en Amerique 
du sud. C'est a partir de cet 
instant que la sauvegarde par- 
tielle de I'aventure vous sera 
vraimenl utile: en effet, a cha- 
que nouvelle etape que vous 
franchirez. une nouvelle 
emgme vous sera proposee, 
faisanl appel au fruit de vos 
recherches dans la propriety 
de J.R. Si par malheur un de- 
tail vous a echappe a Dallas, 
vous serez obliges de repren- 
dre I'aventure au depart a 



moins que vous ne fassiez 
appel a I'une de vos sauvegar- 
des. 

Ainsi. de fil en aiguille, vous 
vous approcherez de la solu- 
tion, lultanl contre les serpents 
et les vaulours, amadouant 
lions el cannibales. echappant 
aux hippopotames et aux arai- 
gnees geantes de I'Amazo- 
nie... 

Ce ne sera pas Ja premiere 
lois que regarder Dallas est 
une epreuve. Mais cette fois- 
ci, cela depasse tout ce que 
vous pouvez imaginer. 

Hubert Tikael de Mevenay (le 
cousin de i'aulre) 

et Leonard d'Ambien Soulages 
(!e frere) 




Les aventures humaines 
de Miche et Micha 



Mister Robot and his factory 



Apres avoir prete serment d'al- 
legeance a son suzerain en 
1328. le Vicomte Octave du 
Roussel des Piemodycarnoard 
se retira dans ses apparte- 
ments pfives et personnels, et 
commenca une furieuse partie 
de Mister Robot. Ca chauffait 
sec. Alors qu'a I'exterieur la 
bataille faisait rage. & I'inle- 
rieur la bataille faisail rage 
aussi (-steme de compression 
hydraulique compensee). Pour 
chauffer, ca chauffait: "pal- 
sambleu. pensait le vicomte. 
ce feu de cheminee est diabo- 
lique... Ca me chauffe les en- 
trailles!". Et il avail raison car 
ga chauffait d'enfer. Et apres 
avoir dil ga. il devint fou. 
Pendant ce temps-la, le suze- 
rain (que pour la commodite 
du recit nous appellerons Al- 
bert) n'en menait pas large. 
Car ca chauffait dur pour lui 
aussi: en fait ga chauffait dur 
pour pas mal de gens en ce 
temps-la. El meme pour Miche 
et Micha, ga chauffait dur. car 
ils ne savaient pas quoi ecrire. 
Et meme pour le chevalier Fa- 
brisly qui avait pourtant deja 
tire nos deux heros d'un mau- 
vais pas, meme pour lui, 
disais-je. ga chauffait dur. Bref 
ga Desole. C'est Miche et 
Micha qui vous parlent. Le 
texte que vous venez de lire 
n'est PAS de nous. La redac- 
tion a honteusement essaye 
de nous evincer, puis de redi- 
ger I'ariicle a notre place, mais 
ga ne prend pas. Nous 
sommes bien irop vigilants et 
bien trop intelligents et bien 
trop beaux et bien trop forts 
pour cela. Parlons done de 
notre sujel d'aujourd'hui. nous 
avons nomme: "Mister Robot 
and his factory*. 
Mister Robot, done, est un Ires 
bon jeu qui ASSEZ! Li piti robo 



qu'il avait mal 6 donts qu il 
vouli sli fire soigm qu'il divi 
surmonli des tas dobs lades 
STOOOOOP! 

Non, ga ne va pas du tout. 
Miche et Micha on! surement 
du abuser d'euphorisants hors 
commerce : signe I'lndic. 
Casse-toi. infame delateur! Et 
laisse-nous expliquer claire- 
ment ce qu'on veut parler du 
machin qu'on cose c'est vrai 
que c'est du bon. Allez. j'ose? 
Poil au menton,..Hihihi (rire de 
nain). Bref quand y'a du feu. 
y*a de la fumee et de la vie et 
de la |oie et un robot qui de- 
truit le feu et plus de feu y'a 
plus de fumee et plus de vie et 
plus d'espoir et que le robot il 
aime ga. Ouoi, ga, quand y'a 
ou quand y'a pas? Non. quand 
y'a pas, passque e'es! pas un 
humain et il ne connail pas les 
vertus de I'amour universel tel 
que les humains le vivent ac- 
luellement oui vous je vous 
aime. Mais le robot il aime ou 
il aime pas les humains c'est 
tout pareil passque lui il aime 
pas ie feu et les bonnes vertus 
du feu il s'en (out passque lui il 
a jamais froid passque il est 
toujours bien graisse et il a 
pas besoin de se rechauffer 
passque il fait de 1'exercice et 
il saute pour attraper des ar- 
mures que quand il met les ar- 
mures ga lui fait ni chaud ni 
froid de rentrer dans le feu et 
que comme ga il peut eleindre 
le feu que lui il risque pas 
d'avoir chaud et que comme 
ga les humains ils ont (roid 
alors ga chauffe pour eux. Dur. 
Si par hasard quelqu'un aurait 
un comprrme d'aspirine dans 
un verre d'eau fraiche, ga me 
rendrait bien service, passque 
j'ai la tele qui bout et qui bouil- 
lonne. D'autre part, si quel- 
qu'un avait le manuscrit origi- 



nal de La Legende des siecles 
ga marrangerait bien aussi 
j'en ai besom merci et si quel- 
qu'un d'autre avail des s<gnes 
de ponctuation en rabe pass- 
qu'on en manque (pas que de 
ga d'aiUeurs, (aire toutes pro- 
positions a Miche et Micha) ici 
dur dur. Bon sang de bon rat. 
j'ai oublie le gaz sur le lait et le 
bebe dans le frigo. ga va 
chauffer... Dur. meme. 

Frigonfied Miche et Micha 
.::?./;;:-)-)& e ah ils etaient 
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DISPONIBLE : EXTENDED BASIC EUROPE 

AVEC MANUEL FRANCAIS 800 F 

ii,. i.. at m 1 




INTERFACE PARALLELE IMPRIMANTE 1.090 F 
BRANCHEMEIMT IMMEDIAT EXTENSION 32 K 1.340 F 



MODULES FUNWARE : 

nx*MMM I 2S5O0 I D I Driving Demon I 285.00 I 

285O0 Tl SwilNick 285.00 

I 785O0 I n I I I 



I 100.00 I n I 
I 120.00 I n I 

•EXTENDED BASIC DISPONIBLE FIN OCTOBRE. 



PROMOTION 



le Module BASIC ETENDU nvtnuel en tunc,™ 

K7 BASIC PAP SOI-MCME 

K7 AIDE A LA PROGRAMMATION 

Uensembte 920.00 F. 



le Module BASIC F.lf : N(XJ rrwnud en li.ifv,.'.-, 
K7 BASIC PAR SOI Ml MB 
V.J AJDE A IA PROGRAMMAriON 
EXTENSION MEMOIRE 32 K EXT 

Lememble 2.240,00 F. 



.'.■- ■: . IW.IC I If NIA1 rn.wiiji-l 

EXTENSION MEMOIRE 32 K EXT 
ii LOGO N 2 



Lensembte 6.S60.00F. 



LOT N" 5 

Le Module BASIC ETENOU rn.muel en fran0S 

MAGNETO CASSErTE LANSAY 

COMPTEUR + CABLE MAGNETO 

MODULE JEUX : 

SUPER DEMON ATTAOUE 

BURGERT1ME 

MUCHMAN 

K7 INTRODUCTION AUX JEUX N° I 

K7 INTRODUCTION AUX JEUX l\p ?. 

L'ensemble t.995,00 F. 



LOT N" 6 

iv.i.if [F'ii< qui (jo'.'.edent le 

(onimleui et le lectcur rte 

disquertes 

I CARTE P CODE 

I UCSD PASCAL COMPII EUR 

I UCSD PASCAL LINKER 

I UCSD PASCAL EDITEUR 

I FDITORASSEMBLEUR 

I DISOUEITEMAIUS 

I DJSOUETTE FICHIER d'ADRESSES 

I DISOUFITE AIDE A1APKOGRAMM tl 

I DISQUETIF AIDL A IA rROGRAMM III 

L'ensemble 3.500.00 F. 



LOT N° 7 

; M.'.jUUU \:A\\< [ II NDIl Fri.in..T-l ft 

I MODULE Tl CALC 

I MODULE CONSEII. FINANCIER 

I MODULE CATION DE RAPPORIS 

I MUIJIJII Ul IICMIf i; 

I INTERFACE PARALl.t'LE Tl 99/4 

I IMPRIMANTF GP 500 SCIKOCHA 

L'ensemble 




Deux plus : 

Pour votre Ti 99/4 A une 

extension memotre 32 K Ram 

exterleure. 

Vous allez ainsi, avec 4S K, 

reallser des programmes plus 

performan ts. 

Un Interface parallele type 

Centronics \/ous permet de 

connecter des Imprlmantes 

comme Epson ou Selfcoscha. 
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